Chapter 3 Calls to the Protocol Converter 



This chapter is about the Protocol Converter, which is a set of 
assembly-language routines used to support external 1/0 devices, such as 
UniDisk 3.5, To ProDOS and Pascal 1.3, the Protocol Converter appears to be 
a block device. 

The following topics are discussed in this chapter: 

□ How to locate the Protocol Converter 

□ How to issue a call to the Protocol Converter 
D The use of each call 

D The parameters required for each call 
D Possible errors codes returned for each call 
D The possible causes of the errors 

At the end of this chapter is an example of an assembly-language program 
that uses a Protocol Converter call. 



Locating the Protocol Converter 

The code for the Protocol Converter always begins at address $C500 in the 
Apple lie with 32K ROM. To ensure compatibility of your programs with the 
Apple lie, however, your Protocol Converter routines should always begin 
with a search for the Protocol Converter by looking for the following bytes: 
CNOl = $20, CN03 = $00, CN05 = $03, and $CN07 = 00, where N can be 
from 1 to 7. The Protocol Converter entry point is then at address 
$CNOO + ($CNFF) + 3. The sample program at the end of this chapter 
illustrates such a search. 



How to Issue a Call to the Protocol Converter 



Protocol Converter calls are coded in a manner similar to ProDOS Machine 
MLI calls: see the ProDos Technical Language Interface (MLl) calls: The program executes a JSR Qump to 

Reference Manual, Chapter 4. subroutine) to a dispatch routine at address $C500 + ($C5FF) + 3, where 

($C5FF) refers to the value of the byte located at $C5FF. 
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The number of the Protocol Converter call and a two-byte pointer to the 
call's parameter list must immediately follow the call. Here is an example of 
a call to the Protocol Converter: 



IWMCALL JSR DISPATCH jCall PC command dispatcher 

DFB CMDNUM ;This spe^cifies the command type 

DW CMDLIST ;2-byte (low, high) pointer to parameter list 

BCS ERROR jCarry Is set on an error 

The command number determines the Protocol Converter call to be used. 
The length and contents of the parameter list depend on the call, as 
described in Section "Descriptions of the Protocol Converter Calls." 

Upon completion of the call, the program resumes execution at the 
statement following the pointer to the parameter list. In this example, the 
DFB and DW statements are skipped, and execution resumes with the BCS 
statement. If the call is successful, the C flag (in the Processor Status 
register of the 65C02 microprocessor) is cleared (0), and the accumulator 
(the A register) is cleared to all zeros. If the call is unsuccessful, the C flag is 
set (1), and the error code is placed in the A register. After the Protocol 
Converter call, the contents of the 65C02's registers are as follows: 

Register: Processor Status X Y A PC S 

Bit: N Z C D V I B 

Successful call: xxOOxuux x JSR+3 u 

Unsuccessful 

call: xxlOxuux x Error JSR+3 u 

X = undefined, except in cases where index information is returned in X and Y 

u = uncfianged 

Most Protocol Converter calls include a two-byte pointer to a parameter list, 
which may contain information to be used by the call, or provide space for 
information to be returned by the call. 



:low to Issue a Call to the Protocol Converter 



Reading and writing to RAM: see Section 
"Bank-Switched Memory" in the Apple lie 
Reference Manual. 



Cautions 

You must observe the following cautions when using the Protocol 
Converter, or your program will crash: 

a The Protocol Converter requires up to 35 bytes of stack space. Be sure 
you take this into account when calculating the stack space used by your 
program. 

Failure to allow for the stack space used by the Protocol Converter can 
result in a stack overflow, causing your program to crash when it 
attempts to access the data that have been overwritten. 
D Data cannot be read from the Protocol Converter into RAM that is not 
both read-enabled and write-enabled. The Protocol Converter must be 
able to read from the RAM after writing to it, to obtain a checksum. 
Failure to observe this rule results in an error (BUSERR $06). 

D Do not attempt to use the Protocol Converter to put anything into zero 
page locations. These locations are reserved for temporary storage of 
data by the Protocol Converter. 



Descriptions of the Protocol Converter Calls 

Calls to the Protocol Converter are used 

n to obtain status information about a device 

D to reset a device 

□ to format the medium in a device 

n to read from a device 

D to write to a device 

D to send control information to a device. 
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The Protocol Converter 
STATUS ($00) 



READ BLOCK ($01) 

WRITE BLOCK ($02) 
FORMAT ($03) 
CONTROL ($04) 



INIT ($05) 



OPEN ($06) 
CLOSE ($07) 



calls, in command-number sequence, are: 

Returns status information about a 
particular device, including general 
status (character or block device, 
read or write protection, format 
allowed, device on line); the device 
control block (set with the 
CONTROL call); the device newline 
status (character devices only); and 
device-specific information (number 
of blocks, ID string, device name, 
device type, device firmware 
version). 

Reads one 512-byte block from a 
disk device, and writes it to 
memory. 

Writes one 512-byte block from 
memory to a disk device. 

Prepares all blocks on a block 
device for reading and writing. 

Controls some device functions, 
including warm resets, setting the 
device control block (which controls 
global aspects of the device's 
operating environment), setting 
newline status (character devices 
only), and device interrupts. Several 
CONTROL calls are device-specific. 

Resets all resident devices. A global 
reset is done automatically on 
startup or system resets from the 
keyboard; an application should 
never have to reset all devices. 

Prepares a character device for 
reading or writing. 

Tells a character device that a 
sequence of reads or writes is over. 



Descriptions of the Protocol Converter Calls 
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READ ($08) 
WRITE ($09) 



Reads a specified number of bytes 
from a specified device. 

Writes a specified number of bytes 
from memory to a specified device. 



Format of Call Descriptions 

Tl^e following sections describe each protocol converter call, including the 
command number, the parameter list, and error codes. The calls are 
discussed in command-number order. Each call is shown in this format: 

Command Name The name used to identify the call for descriptive 
purposes. 

Command Number The number, in hexadecimal, that specifies the call 
to the Protocol Converter. 

Parameter List A list of the parameters required for the call. 

General Description The purpose and use of the call. 

Parameter Descriptions A description of each parameter, and 
descriptions of data bytes pointed to by parameters. When a parameter is a 
status or control code, the meaning of each code number is discussed. 

Possible Errors A list of the error codes that can be returned by this call. 
A complete list of Protocol Converter error codes is included at the end of 
this chapter. 
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STATUS 



Command Number $00 

Parameter List $03 (parameter count) 

Unit number 

Status list pointer (low byte, high 

byte) 

Status code 

The STATUS call returns status information about a particular device. The 
type of information returned is determined by the status-code parameter, 
and the location to which it is returned is determined by the status list 
pointer. 

After a STATUS call has been executed, the 65C02's X and Y registers 
contain the number of bytes of status information returned (the low byte of 
this number is in the X register, and the high byte is in the Y register). 



Parameter Descriptions 



Important 



Parameter 
Count 

1-byte value 

Unit Number 

1-byte value 



3 for this call. 



The Protocol Converter assigns each device a unique 
number during initialization (on startup and cold 
reset). The numbers are in the range $01— $7E, and 
are assigned according to the devices' positions in the 
chain. 

Use a unit number of $00 and a status code of $00 in a STATUS call to 
obtain the status of the Protocol Converter itself (see the discussion under 
Status Code = $00, below). 

Status List Points to the buffer to which the status is to be 

Pointer returned. The length required for the buffer varies 

2-byte value depending on the status request being made. 

Status Code Indicates what kind of status request is being made. 

1-byte value Status codes are in the range $00-$FF, as follows: 



STATUS 
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Table 3-1. Status Codes 



Code 

$00 
$01 
$02 
$03 



Status Returned 

Return device status 

Return device control block (DCB) 

Return newline status (character devices only) 

Return device information blocli (DIB) 

Return UniDisk 3.5 status 



UniDisk 3.5 



Status codes $01 and $02 are not supported by the UniDisk 3.5 and result 
in an error (BADCTL $21). Device status for the UniDisk 3.5 can be 
obtained by using status code $05. 

Status Code = $00, Return Device Status The device status consists of 
four bytes. The first is the general status byte: 



Bit 



Description 

= character device, 1 = block device 

1 = viTite allov?ed 
1 = read allowed 

1 = device on line or disk in drive 
= format allowed 

= medium write protected (block devices only) 

1 = device currently interrupting 

1 = device currently open (character devices only) 



If the STATUS call is for a block device, the next three bytes (low byte 
first) are the size in 512-byte blocks. The maximum size is 16 million 
($FFFFFF) blocks (about 8 gigabytes). If the call is for a character device, 
these three bytes must be set to zero. 

Unit Number $00: A STATUS call with status code = $00 and unit 
number = $00 returns the status of the Protocol Converter itself. In this 
case, the status list consists of eight bytes, as follows: 



STAT_LIST DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 



Number-Devices 
Interrupt-Status 



Devices hooked to PC 

Bit 6 clear = interrupt sent 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 
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ACIA status register: see Section 
"Firmware Handling of Interrupts" in tiie 
Apple lie Reference Manual. 



liOfS 



Newline read mode: see Ciiapter 4 in the 
PRODOS Technical Reference Manual. 



The Number__Devices byte returns the total number of intelligent devices 
attached to the Protocol Converter. The Interrupt__Status byte is a copy of 
the Asynchronous Communications Interface Adapter (ACIA) status 
register at the time of the interrupt, and is used to indicate that a device 
requires interrupt servicing. If the sixth bit of this byte equals zero, one or 
more devices in the Protocol Converter Bus daisy chain must be serviced; 
your interrupt handler must poll each device on the chain to determine 
which ones. 

About Interrupts: Devices that require interrupt servicing must use the 
EXTINT line on the external disk port connector of the Apple lie to be 
supported by the Protocol Converter. UniDisk 3.5, for example, does not 
support this line, and so cannot generate interrupts to the Protocol 
Converter. See Section "CONTROL" for instructions on enabling Protocol 
Converter interrupts. See Appendix E in i]xQ Apple lie Reference 
Manual for more information about programming with interrupts. 

Status Code = $01, Return Device Control Block The device control 
block (DCB) is used to control various operating characteristics of a device, 
and is device dependent. Each device has a default DCB, which can be 
altered with a CONTROL call. The first byte (the count byte) gives the 
number of bytes in the control block {not including the count byte), so the 
length never exceeds 256 bytes (257 including the count byte). 

UniDisk 3.5 has no DCB, and returns an error (BADCTL $21) in response 
to this call. 

Status Code = $02, Return Newline Status Newline status applies only 
to character devices. Use of statcode = $02 with a block device results in 
error BADCTL ($21). 

Status Code = $03, Return Device Information Block The device's 
information block contains information identifying the device, its type, and 
various other attributes. The returned status list has the following form: 



STAT-LIST DFB 
DFB 
DFB 
DFB 
DFB 
ASC 



DFB 
DFB 
DU 



Devlce-Statbytel 
Devlce_Size_Lo 
Device_Size_Mecl 
Device_Sl 2e_Hi 
ID_Stririg_Length 
'<device name>' 



Device_Type_Code 

Device_Subtype_Code 

Version ;Devlce firmwc 



; Same as byte 1 in Status Code"0 
;Number of blocks Cblock device) 
;Number of blocks (middle byte) 
;Nuinber of blocks Chigh byte) 
;Length in bytes C1G max.) 
;7-bit ASCII, uppercase, padded 

with spaces, eighth bit always-0 

(ie bytes) 



re version number 



STATUS 
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Status Code = $05, Return UniDisk 3.5 Status This call allows the 
diagnostic program to get more detailed information about the cause of a 
read or write error, and to examine the contents of the 65C02's registers 
after a CONTROL Protocol Converter call with control code = $05 (see 
Section "CONTROL"). The returned status list has this form: 



;Soft Error byte Csee below) 
;Number of retries Csee below) 



STAT.LIST DFB $00 

DFB Error 

DFB Retries 

DFB $00 

DFB A-Value ;Acc value after a CONTROL EXECUTE call 

DFB X_Value ;X value after EXECUTE 

DFB Y-Value ;Y value after EXECUTE 

DFB P-Value ;Processor Status value after EXECUTE 

The Error byte returned by a STATUS call with status code = $05 (Return 
UniDisk 3.5 Status) contains the following bits: 

Bit Description 

7 

6 

5 1 = address field marlc or checksum error 

4 1 = data field checlcsum error 

3 1 = data field bitslip marl^ mismatch 

2 1 = seek error; unexpected track value found 

in address field 

1 





The Retries byte returned by a STATUS call with status code = $05 (Return 
UniDisk 3.5 Status) specfies the number of address fields that had to be 
passed before the operation was completed. This information could be used, 
for example, to determine the number of passes necessary to read a data 
field correctly: If Retries is found to be greater than the number of sectors 
on the target track, then more than one pass was required. 

The last four bytes of the status list are set only after a CONTROL call with 
control code = $05, and are zero after any other call (STATUS calls do not 
clear the status bytes). 
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Possible Errors 




The following errors can 


be returned by the STATUS call: 


$01 


BADCMD 


An unimplemented command was issued 


$04 


BADPCNT 


Bad call parameter count 


$06 


BUSERR 


Communications error 


$21 


BADCTL 


Invalid status code 


$30-$3F 




Device-specific errors 
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READ BLOCK 



Command Number 
Parameter List 



$01 



$03 (parameter count) 

Unit number 

Data buffer (low byte, high byte) 

Block number (low byte, mid byte, 

high byte) 

The READ BLOCK call reads one 512-byte block from the disk device 
specified by the unit-number parameter into memory starting at the address 
specified by the data-buffer parameter. 



Parameter Descriptions 



Parameter 
Count 

1-byte value 

Unit Number 

1-byte value 



Data Buffer 

2-byte value 

Block Number 

3-byte value 



3 for this call. 



The Protocol Converter assigns each device a unique 
number during initialization (on startup and cold 
reset). The numbers are in the range $01— $7E, and 
are assigned according to the devices' positions in the 
chain. A unit number of $00 in the STATUS call 
returns the number of devices connected to the 
Protocol Converter. 

Points to the buffer into which the data is read. The 
buffer must be 512 or more bytes in length. 

The logical address of a block of data to be read. There 
is no general connection between block numbers and 
the layout of tracks and sectors on the disk. The 
translation from logical to physical blocks is 
performed by the device. (The most significant byte is 
zero for all devices currently in use.) 
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Possible Errors 




The following errors can 


be returned by the READ BLOCK call: 


$01 BADCMD 


An unimplemented command was issued 


$04 BADPCNT 


Bad call parameter count 


$06 BUSERR 


Communications error 


$27 lOERROR 


I/O error 


$28 NODRIVE 


No device connected 


$2D BADBLOCK 


Invalid block number 


$2F OFFLINE 


Device off-line or no disk in drive 



READ BLOCK 31 



WRITE BLOCK 



Command Number $02 

Parameter List $03 (parameter count) 

Unit number 

Data buffer (low byte, high byte) 
Block number (low byte, mid byte, 
high byte) 

The WRITE BLOCK call writes one 512-byte block from memory to the disk 
device specified by the unit-number parameter. The block in memory starts 
at the address specified by the data-buffer parameter. 



Parameter Descriptions 



Parameter 
Count 

1-byte value 

Unit Number 

1-byte value 



Data Buffer 

2-byte value 

Block Number 

3-byte value 



3 for this call. 



The Protocol Converter assigns each device a unique ( 
number during initialization (on startup and cold 
reset). The numbers are in the range $01— $7E, and 
are assigned according to the devices' positions in the 
chain. A unit number of $00 in the STATUS call 
returns the number of devices connected to the 
Protocol Converter. 

Points to the buffer from which the data is to be 
written. 

The logical address of a block of data to be written. 
There is no general connection between block 
numbers and the layout of tracks and sectors on the 
disk. The translation from logical to physical blocks is 
performed by the device. (The most significant byte is 
zero for all devices currently in use.) 
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Possible Errors 

The following errors can be returned by the WRITE BLOCK call: 

$01 BADCMD An unimplemented command was issued 

$04 BADPCNT Bad call parameter count 

$06 BUSERR Communications error 

$27 lOERROR 1/0 error 

$28 NODRIVE No device connected 

$2B NOWRITE Disk write protected 

$2D BADBLOCK Invalid block number 

$2F OFFLINE Device off-line or no disk in drive 



WRITE BLOCK 



FORMAT 



Command Number 
Parameter List 



$03 

$01 (parameter count) 
Unit number 



The FORMAT call prepares all blocks on the recording medium of a block 
device for reading and writing. The formatting done by this call is not linked 
to any operating system; for example, bitmaps and catalogs are not written 
by this call. 



Parameter Descriptions 



Parameter 
Count 

1-byte value 

Unit Number 

1-byte value 



1 for this call. 



The Protocol Converter assigns each device a unique 
number during initialization (on startup and cold 
reset). The numbers are in the range $01— $7E, and 
are assigned according to the devices' positions in the 
chain. A unit number of $00 in the STATUS call 
returns the number of devices connected to the 
Protocol Converter. 



Possible Errors 




The following errors can 


be returned by the FORMAT call: 


$01 BADCMD 


An unimplemented command was issued 


$04 BADPCNT 


Bad call parameter count 


$06 BUSERR 


Communications error 


$27 lOERROR 


1/0 error 


$28 NODRIVE 


No device connected 


$2B NOWRITE 


Disk write protected 


$2F OFFLINE 


Device off-line or no disk in drive 
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CONTROL 



Important 



Command Number $04 

Parameter List $03 (parameter count) 

Unit number 

Control list (low byte, high byte) 
Control code 

The CONTROL call sends control information to the device. The 
information can be of a general nature (such as resets or interrupts), or 
device-specific (such as Download to UniDisk 3.5 RAM). 

I A CONTROL call to unit number $00 sends control information to the 

Protocol Converter itself. See the discussions under Control Code = $0( 
i and Control Code = $01, below. 



Parameter Descriptions 



Parameter 
Count 

1-byte value 

Unit Number 

1-byte value 



Control List 

2-byte value 



3 for this call. 



The Protocol Converter assigns each device a unique 
number during initialization (on startup and cold 
reset). The numbers are in the range $01— $7E, and 
are assigned according to the devices' positions in the 
chain. A unit number of $00 in the STATUS call 
returns the number of devices connected to the 
Protocol Converter. Use a unit number of $00 in the 
CONTROL call to send control information to the 
Protocol Converter itself. 

Points to the buffer from which the control 
information is read. The first two bytes (the count 
bytes, low byte first) of the control list specify the 
number of bytes in the list (not including the count 
bytes); the remainder of the list contains the control 
information passed to the device. 



CONTROL 
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Important 



Every CONTROL call must have a control list; if r\o control information is 
being passed, then the control list consists of the count bytes only: 



CTRL-LIST DW tdd 

Control Code The number of the control request being made. 

1-byte value Control codes are in the range $00— $FF. The 
following requests are not device-specific: 

Code Control Function 

$00 Reset the device 

$01 Set device control block (DCB) 

$02 Set newline status (character devices only) 

$03 Service device interrupt 



Control requests to unit number $00 are sent to the Protocol Converter 
itself: 



Code 



$01 



Control Function 

Enable interrupts from Protocol Converter 
Disable interrupts from Protocol Converter 



Specific devices may respond to some or all of these additional control 
requests: 



Code 

$04 
$05 
$06 



Control Function 

Eject disk 

Run a 65C02 subroutine 
Set download address 
Download to device RAM 



Control Code = $00, Reset the Device Performs a warm reset of the 
device. Generally returns "housekeeping" values to some reset value. The 
control list for this call is device dependent. 

UniDisk 3.5 The control list for this call for UniDisk 3.5 devices is; 

CTRL-LIST DM $00 ;No parameters are passed 
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UniDisk 3.5 



Newline read mode: See Chapter 4 in the 
PRODOS Technical Reference Manual. 



UniDisk 3.5 



Unit Number $00: A CONTROL call with control code = $00 and unit 
number = $00 enables interrupts from the Protocol Converter. This call 
informs the firmware that external interrupts are possible, and directs it 
to call the user's interrupt handler if an interrupt occurs. It also turns on 
the Asynchronous Communications Interface Adapter (ACIA) for port 1. 

When the user's interrupt handler identifies an external interrupt, you 
can determine if it came from the Protocol Converter by making a 
STATUS call with unit number = $00 and control code = $00 (see 
Section "STATUS"). See Appendix E in the Apple lie Reference Manual 
for more information on handling interrupts. 

Control Code = $01, Set Device Control Block Alters the contents of 
the device control block (DCB). The DCB is usually used to set global 
aspects of a device's operating environment. Each device has a default 
setting for the DCB, set on initialization. Since the length of the DCB is 
device dependent, you should first read in the DCB with the STATUS call, 
then alter the bits of interest, and finally, use the same byte string as the 
control block for the CONTROL call. The first byte (the count byte) of the 
DCB gives the number of bytes in the control block (not including the count 
byte), so the length never exceeds 257 bytes, including the count byte. 

UniDisk 3.5 has no DCB; a Set DCB CONTROL call to UniDisk 3.5 returns 
anerror(BADCTL$21). 

Unit Number = $00: A CONTROL call with control code = $01 and unit 
number = $00 disables interrupts from the Protocol Converter. This call 
turns off the ACIA for port 1 and sets the least significant bit of the ACIA 
control register to zero. 

Control Code = $02, Set Newline Status Sets a character device to 
newline enabled or newline disabled. 

Control Code = $03, Device Service Interrupt To be used as needed 
for interrupt-driven devices. 

Control Code = $04, Eject Disk To be used for devices that support an 
auto-eject feature. 

Causes UniDisk 3.5 to auto-eject a disk. There are no parameters in the 
control list, and no errors are returned if the disk ejected correctly or 
there was no disk in the drive. Error code $27 (1/0 error) is returned if 
the eject failed, that is, a disk is still in the drive. The control list for 
UniDisk 3.5 is: 

CTRI LIST DW $00 ;No parameters are passed 



CONTROL 
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▲Warning I Control codes $05 and higher are reserved; use of some of these codes can 
I cause your system to crash. ' 



Possible Errors 


ber 




The following errors can 


3turned by the CONTROL call: 


$01 


BADCMD 




An unimplemented command was issued 


$04 


BADPCNT 




Bad call parameter count 


$06 


BUSERR 




Communications error 


$21 


BADCTL 




Invalid control code 


$22 


BADCTLPARM 


Invalid parameter list 


$30-$3F 






Device-specific errors 
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INIT 

Command Number $05 

Parameter List $01 (parameter count) 

$00 (unit number) 

The INIT call resets all intelligent devices attached to the Protocol 
Converter. The Protocol Converter goes through an initialization sequence, 
cold-resetting all devices and sending each its unit number. This call is 
made automatically on startup; an application should never have to make 
this call. 

Parameter Descriptions 

Parameter 1 for this call. 

Count 

1-byte value 

Unit Number The unit number used in this call is always $00. 
1-byte value 

Possible Errors 

The following errors can be returned by the INIT call: 

$01 BADCMD An unimplemented command was issued 

$04 BADPCNT Bad call parameter count 

$06 BUSERR Communications error 

$28 NODRIVE No device connected 



INIT 



OPEN 



UniDisk 3.5 



Command Number 
Parameter List 



$06 

$01 (parameter count) 
Unit number 



The OPEN call prepares a character device for reading or writing. 

Since UniDisk 3.5 is a block device, it does not accept this call. An 
attempt to use an OPEN call with UniDisk 3.5 will result in an error 
(BADCMD $01). 



Parameter Descriptions 



Parameter 
Count 

1-byte value 

Unit Number 

1-byte value 



1 for this call. 



The Protocol Converter assigns each device a unique 
number during initialization (on startup and cold 
reset). The numbers are in the range $01— $7E, and 
are assigned according to the devices' positions in the 
chain. A unit number of $00 in the STATUS call 
returns the number of devices connected to the 
Protocol Converter. 



Possible Errors 

The following errors can be returned by the OPEN call: 

$01 BADCMD An unimplemented command was issued 

$04 BADPCNT Bad call parameter count 

$06 BUSERR Communications error 

$28 NODRIVE No device connected 

$2F OFFLINE Device off-line or no disk in drive 
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CLOSE 



UniDisk 3.5 



Command Number 
Parameter List 



$07 

$01 (parameter count) 
Unit number 



The CLOSE call tells a character device that a sequence of reads or writes is 
over. 

Since UniDisk 3.5 is a block device, it does not accept this call. An 
attempt to use a CLOSE call with UniDisk 3.5 will result in an error 
(BADCMD $01). 



Parameter Descriptions 



Parameter 
Count 

1-byte value 

Unit Number 

1-byte value 



1 for this call. 



The Protocol Converter assigns each device a unique 
number during initialization (on startup and cold 
reset). The numbers are in the range $01— $7E, and 
are assigned according to the devices' positions in the 
chain. A unit number of $00 in the STATUS call 
returns the number of devices connected to the 
Protocol Converter. 



Possible Errors 




The following errors can 


be returned by the CLOSE call: 


$01 BADCMD 


An unimplemented command was issued 


$04 BADPCNT 


Bad call parameter count 


$06 BUSERR 


Communications error 


$28 NODRIVE 


No device connected 


$2F OFFLINE 


Device off-line or no disk in drive 



CLOSE 
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READ 



Command Number 
Parameter List 



$08 



$04 (parameter count) 

Unit number 

Buffer pointer (low byte, higli byte) 

Byte count (low byte, high byte) 

Address pointer (low byte, mid byte, 

high byte) 

The READ call reads the number of bytes specified by the byte-count 
parameter into memory starting at the address specified by the 
buffer-pointer parameter. 

Macintosh: This call can be used by UniDisk 3.5 devices to read 
524-byte data blocks written by an Apple Macintosh™ Computer. 



Parameter Descriptions 



Parameter 
Count 

1-byte value 

Unit Number 

1-byte value 



Buffer Pointer 

2-byte value 

Byte Count 

2-byte value 



4 for this call. 



The Protocol Converter assigns each device a unique 
number during initialization (on startup and cold 
reset). The numbers are in the range $01— $7E, and 
are assigned according to the devices' positions in the 
chain. A unit number of $00 in the STATUS call 
returns the number of devices connected to the 
Protocol Converter. 

Points to the buffer into which the data is read. The 
buffer must be large enough to contain the number of 
bytes requested by the byte-count parameter. 

Specifies the number of bytes to be transferred. 
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Macintosh: The byte count used to read Macintosh disks with a 
UniDisl( 3.5 is always 524 bytes ($020C). 

Address Specifies the address to start reading from. The 

Pointer meaning of this parameter depends on the device 

3-byte value being read. 

Macintosh: When using a UniDisk 3.5 to read Macintosh disks, the 
address pointer specifies the number of the 524-byte Macintosh block to 
be read (from $00 to $031F for a single-sided disk). 



Possible Errors 




The following errors can 


be returned by the READ call: 


$01 


BADCMD 


An unimplemented command was issued 


$04 


BADPCNT 


Bad call parameter count 


$06 


BUSERR 


Communications error 


$27 


lOERROR 


1/0 error 


$28 


NODRIVE 


No device connected 


$2D 


BADBLOCK 


Invalid block number 



$2F OFFLINE Device off-line or no disk in drive 
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WRITE 



Command Number 
Parameter List 



$09 

$04 (parameter count) 

Unit number 

Buffer pointer (low byte, iiigii byte) 

Byte count (low byte, high byte) 

Address pointer (low byte, mid byte, 

high byte) 

The WRITE call writes the number of bytes specified by the byte-count 
parameter to the specified unit from memory starting at the address 
indicated by the buffer-pointer parameter. The meaning of the address 
pointer depends on the type of device (see the parameter descriptions, 
below). 

Macintosh: This call can be used by UniDisk 3.5 devices to write 
524-byte blocks for use by an Apple Macintosh computer. 



Parameter Descriptions 



Parameter 
Count 

1-byte value 

Unit Number 

1-byte value 



Buffer Pointer 

2-byte value 

Byte Count 

2-byte value 



4 for this call. 



The Protocol Converter assigns each device a unique 
number during initialization (on startup and cold 
reset). The numbers are in the range $01— $7E, and 
are assigned according to the devices' positions in the 
chain. A unit number of $00 in the STATUS call 
returns the number of devices connected to the 
Protocol Converter. 

Points to the buffer from which the data is to be 
written. 

Specifies the number of bytes to be transferred. 
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Macintosh: The byte count used to write Macintosh disl^s with a 
UniDisl^ 3.5 is always 524 bytes ($020C). 

Address Specifies the address to start writing from. The 

Pointer meaning of this parameter depends on the device 

3-byte value being written to. 

Macintosh: When using a UniDisk 3.5 to write Macintosh disks, the 
address pointer specifies the number of the 524-byte Macintosh block to 
be written (from $00 to $031F for a single-sided disk). 



Possible Errors 

The following errors can be returned by the WRITE call: 



$01 


BADCMD 


An unimplemented command was issued 


$04 


BADPCNT 


Bad call parameter count 


$06 


BUSERR 


Communications error 


$27 


lOERROR 


1/0 error 


$28 


NODRIVE 


No device connected 


$2D 


BADBLOCK 


Invalid block number 


$2F 


OFFLINE 


Device off-Kne or no disk in drive 
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An Example: Issuing a Protocol Converter Call 



Apple He 



Here is an example of a program that issues a STATUS call to the Protocol 
Converter to obtain information about a device. 

The code for the Protocol Converter in the Apple lie with 32K ROM 
always begins at address $C500; however, to ensure compatibility with 
the Apple He, your programs should always do a search for the Protocol 
Converter, as in the following example. 



0000 






1 


* 






0000 






2 


« 






0000 






3 


* 






0000 






4 


tt 


This example 


shows how to find 


0000 






5 


# 


and use a PC 


interface. A search 


0000 






6 


tt 


is made for 


a PC, and when one is 


0000 






7 


« 


found, a vec 


tor is set up which 


0000 






8 


* 


points to th 


e PC entry. Then a 


0000 






9 


# 


Device Information Block STATUS call 


0000 






10 


« 


is made, and 


if successful, the name 


0000 






1 1 


« 


string embedded in the DIB is output 


0000 






12 


« 


to the screen. Only the first device 


0000 






13 


« 


in the chain 


is accessed. 


0000 






14 


« 






0000 






15 


* 






0000 






16 




MSB 


ON 


0000 






17 


« 






0000 






18 


» 






0000 




0006 


19 


ZPTempL equ 


$0006 jTemporary zero 


0000 






20 


* 




page storage 


0000 




0007 


21 


ZPTempH equ 


$0007 


0000 






22 


« 






0000 




FDED 


23 


CG 


ut equ 


$FDED ;Console output 
»FD8E ;Carriage return 


0000 




FD8E 


24 


CROut equ 


0000 






25 


* 






0000 




0000 


26 


St 


atusCmd equ 





0000: 






27 


« 






0000: 






28 


* 






0300: 




0300 


29 




org 


$300 


0300: 






30 


« 






0300: 






31 


« 


Find a Protocol Converter in one of the 


0300: 






32 


« 


slots. 




0300: 






33 


« 






0300: 


20 43 


03 


34 




jsr 


FindPC 


0303: 


B0 1C 


0321 


35 




bcs 


Error 


0305: 






36 


» 






0305: 






37 


* 


Now make the DIB call to the first auv 


0305: 






38 


* 




w * 
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0305 


:20 


67 


03 




39 






]='■ 


Di spatch 


0308:00 








40 






dfb 


StatusCmd 


0309:6A 


03 






41 






dw 


DParms 


030B:B0 


14 




0321 


42 






bcs 


Error 


030D: 








43 


« 








030D: 








44 


« 


Got the 


DIB 


now print the name string 


030D: 








45 


* 








030D:A2 


00 






46 






Idx 


#0 


030F: 






030F 


47 


morechars 


equ 


« 


030F:BD 


74 


03 




48 






Ida 


DIBName.x 


0312:09 


80 






49 






ora 


*$80 ;COut wants high 


0314 








50 


« 






Bit set 


0314 










51 


* 








0314 


:20 


ED 


FD 




52 






jsi- 


CQut 


0317 


:E8 








53 






Inx 




0318 


:EC 


73 


03 




54 






cpx 


DIBNameLen 


031B 


:90 


F2 




030F 


55 






bit 


morechars 


031D 










56 


« 








031D 


20 


8E 


FD 




57 






]=>" 


CROut ;Finish it off 


0320 










58 


# 






with a return 


0320 










59 


♦ 








0320 


60 








60 






rts 




0321 










61 


« 








0321 










62 


• 








0321 








0321 


63 


Error 


equ 


« 


0321 










64 


« 








0321 










65 


* 


There's 


eith 


er no PC around, or there 


0321 










66 


♦ 


was no 


Unit 


*1 . . . give message 


0321 










67 


« 








0321 


A2 


00 






68 






Idx 


#0 


0323 








0323 


69 


err 1 


equ 


* 


0323 


BD 


2F 


03 




70 






Ida 


Message , x 


0326 


F0 


06 




032E 


71 






beq 


errout 


0328 


20 


ED 


FD 




72 






js"" 


COut 


032B 


E8 








73 






inx 




032C 


D0 


F5 




0323 


74 






bne 


erri 


032E 










75 


tt 








032E 








032E 


76 


errout 


equ 


« 


032E 


60 








77 






rts 




032F 










78 


* 








032F 


CE 


CF 


A0 


D0 


79 


Message 


asc 


'NO PC OR NO DEVICE' 


0341 


8D 


00 






80 






dfb 


$8D,0 


0343 










81 


* 








0343 










82 


# 








0343 








0343 


83 


FlndPC 


equ 


» 


0343 










84 


« 








0343 










85 


# 


Search 


slot 


7 to slot 1 looking for 


0343 










86 


» 


signat 


are bytes 


0343 










87 


* 








0343 


A2 


07 






88 






Idx 


*7 ; Do for seven 


0345 










89 


• 






slots 


0345: 


A9 


C7 






90 






Ida 


#$C7 
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0347 


:85 


07 


0349 


:A9 


00 


034B 


:85 


06 


034D 






034D 






034D 


:A0 


07 


034F 






034F 






034F 


:B1 


06 


0351 


:D9 


70 03 


0354 






0354 


:F0 


07 


0356 






0356 


:C6 


07 


0358 


:CA 




0359 


:D0 


F2 


035B 






035B 






035B 






035B 






035B 






035B 


38 




035C 


60 




035D 






035D 






035D 






035D 






035D 






035D 






035D 






035D 






035D 






035D 


88 




035E 


88 




035F 






035F 


10 


EE 


0361 






0361 






0361 






0361: 






0361: 






0361 : 






0361 : 




( 


0361: 


A9 


FF 


0363: 


85 


06 


0365: 


A0 


00 


0367: 






0367: 


B1 


06 


0369: 






0369: 






0369: 






0369: 







034D 



034F 



035D 



034D 



035D 



034F 



0361 



SI 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
1 11 
112 
1 13 
1 14 
115 
1 16 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 



newslot 



again 



5 ta 
Ida 
s ta 

equ 
Idy 

equ 
Ida 
cmp 

beq 

dec 
dex 
bne 



ZPTempH 

^$00 

ZPTempL 



#7 

# 

(ZPTempL) ,y 
slgtab ,y 

maybe 

ZPTempH 

news lot 



; One of four 
byte signature 

;Found one 
signature byte 



If we get here, it's because we couldn't 

find a Protocol Converter. 
Exit with the carry set. 

sec 
rts 

If we get here, it means that one or 
more of the signature bytes 
for this card are what we're looking 
for. Decrement the byte 
counter and branch back to verify any 
remaining bytes. 



maybe 



equ 
dey 
dey 

bpl 



; If N=1 then 
all sig bytes okay 



agai 



Found a Protocol Converter interface. 

Set up the call address. 
We already have the high byte C$CN); 

we Just need the low byte. 



foundPC 



equ 
Ida 
s ta 
Idy 



*$FF 

ZPTempL 

#0 



Ida CZPTempD.y 



; For 
indirect load 
;Get the 
byte 



* Now the Ace has the low order ProDDS 

• entry point. The PC entry is 
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0369 

0369 

0369 

036A 

036C 

036E 

036E 

036E 

036E 

036E 

036F 

0370 

0370 

0370 

0370 

0370 

0370 

0370 

0370 

0374 

0378 

0378 

0378 

0378 

037B 

037B 

037B 

037B 

037B 

037C 

037C 

037D 

037F 

0380 

0380 

0380 

0380 

0381 

0384 

0385 

0395 

0396 

0397 

0399 

399 



18 

69 03 
85 06 



18 
60 



FF 20 FF 0i 
FF 03 FF 0E 



0378 



6C 06 00 



037B 



03 

01 

80 03 

03 



0380 



00 

00 00 00 

00 

00 
00 
00 00 



0010 



143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 



* three locations past this... 

clc 

adc #3 

sta ZPTempL 

* Now ZPTempL has the PC entry point. 

* Return with carry clear. 

clc 
rts 



These are the PC signature bytes in 
their relative order. 
The $FF bytes are filler bytes and 
are not compared. 



s igtab 



Dispatch 



DParms 

DPParmCt 

* 

DPUnit 
DPBuf fer 



dfb 
dfb 



equ 

j"ip 



equ 
dfb 

dfb 
dw 



DPStatCode dfb 



$FF,$20,$FF,$00 
$FF,$03,$FF,$00 



(ZPTempL) ;Simulate 

an indirect JSR to PC 



3 ; Status 

calls have three parameters 
1 

DIB 
3 



DIB equ • 
DIBStatBytel dfb 

DIBDevSize dfb 0,0,0 

DIBNameLen dfb 

DIBName ds 16,0 

DIBType dfb 

DIBSubType dfb 

DIBVersion dw 
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Summary of Commands and Parameters 

This is a summary of Protocol Converter calls. In each case, byte of the 
command parameter list (CMDLST) specifies the number of parameters in 
the command list (not including byte 0). Parameters that require more than 
one byte (the status list pointer, for example) are entered low byte first. The 
meaning of the address-pointer parameter is device specific. See the 
sections on the individual calls in this chapter for a discussion of each 
parameter. 



Figure 3-1. Summary of Protocol Converter Commands and Parameters 



Command 


STATUS 


READBLOCK 


WRITEBLOCK 


FORMAT 


CONTROL 


CmdNum 


$00 


$01 


$02 


$03 


$04 


CmdList Byte 




$03 


$03 


$03 


$01 


$03 


1 


Unit Num 


Unit Num 


Unit Num 


Unit Num 


Unit Num 


2 


Stat List Ptr 


Buffer Ptr 


Buffer Ptr 




Ctl List Ptr 


3 




4 


Stat Code 


Block Num 


Block Num 




Ctl Code 


5 








6 





















Command 


INIT 


OPEN 


CLOSE 


READ 


WRITE 


CmdNum 


$05 


$06 


$07 


$08 


$09 


CmdList Byte 




$01 


$01 


$01 


$04 


$04 


1 


$00 


Unit Num 


Unit Num 


Unit Num 


Unit Num 


2 








Buffer Ptr 


Buffer Ptr 


3 








4 








Byte Count 


Byte Count 


5 








6 








7 








Address Ptr 


Address Ptr 


8 









Unused bytes 
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Summary of Error Codes 



This is a summary of Protocol Converter call error codes, including a brief 
description of the possible causes for each. If there is no error, the C flag (in 
the Processor Status register of the 65C02 microprocessor) is cleared (0), 
and the accumulator (the A register) contains zeros. If the call was 
unsuccessful, the C flag is set (1), and the A register contains the error code. 

$00 No error. 

$01 BADCMD A nonexistent command was issued. Check 

the command number in the Protocol 
Converter call. 

$04 BADPCNT Bad call parameter count. The call 

parameter list was not properly 
constructed. Make sure the parameter list 
has the correct number of parameters. 

$06 BUSERR A communications error between the 

device controller and the host. Make sure 
that RAM is both read-enabled and 
write-enabled. Check the hardware (cables 
and connectors) between the device and 
the host. Check for noise sources; make 
sure the cable is properly shielded. 

Unit number $00 was used in a call other 
than STATUS, CONTROL, or INIT. 

The control or status code is not supported 
by the device. 

The control parameter list contains invalid 
information. Make sure each value is within 
the range allowed for that parameter. 

$27 lOERROR The device encountered an I/O error when 

trying to read or write to the recording 
medium. Make sure that the medium in the 
device is formatted and not defective. Make 
sure the device is operating correctly. 

$28 NODRIVE The device is not connected. This can occur 

if the device is not connected but its 
controller is, or if there is no device with the 
unit number specified. 



$11 


BADUNIT 


$21 


BADCTL 


$22 


BADCTLPARM 



Summary of Error Codes 
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$2B 



$2D 



NOWRITE 



BADBLOCK 



$2F 



OFFLINE 



$30-$3F DEVSPEC 

$40-$4F 

$50-$7F NONFATAL 



The medium in the device is write 
protected. 

The block number is outside the range 
ahowed for the medium in the device. Note 
that this range depends on the type of 
device and the type of medium in the 
device (single-sided vs. double-sided disk, 
for example). 

Device off-line or no disk in drive. Check 
the cables and connections; make sure the 
medium is present in the drive, and that the 
drive is functioning correctly. 

Errors which differ from device to device. 
See the technical manual for the device in 
question for details. 

Reserved for future expansion. 

A device-specific soft error. The operation 
completed successfully, but some 
exception condition was detected. See the 
technical manual for the device in question 
for details. 
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Appendix A 



Firmware Listing 



SOURCE 


FILE 


#01 ■ 


>FIRM 


INCLUDE 


FILE 


#B2 ■ 


>NAMES 


INCLUDE 


FILE 


#03 ■ 


>EQUATES 


INCLUDE 


FILE 


#04 ■ 


>SERIAL 


INCLUDE 


FILE 


#0B ■ 


>SER 


INCLUDE 


FILE 


#06 ■ 


>CDMM 


INCLUDE 


FILE 


#07 ■ 


>C3SPACE 


INCLUDE 


FILE 


#08 ■ 


>MOUSE 


INCLUDE 


FILE 


#09 ■ 


>MCaDE 


INCLUDE 


FILE 


#10 ■ 


>MISC 


INCLUDE 


FILE 


#11 ■ 


>BaOT 


INCLUDE 


FILE 


#12 ■ 


>SWITCHER 


INCLUDE 


FILE 


#13 ■ 


>IRQBUF 


INCLUDE 


FILE 


#14 ■ 


>MINI 


INCLUDE 


FILE 


#15 ■ 


■>SCROLLING 


INCLUDE 


FILE 


#16 ■ 


>ESCAPE 


INCLUDE 


FILE 


#17 ■ 


>PASCAL 


INCLUDE 


FILE 


#18 ■ 


■>MDREMISC 


INCLUDE 


FILE 


#19 ■ 


■>AUT0ST1 


INCLUDE 


FILE 


#20 ■ 


■>AUT0ST2 


INCLUDE 


FILE 


'21 ■ 


■>BANK2 


INCLUDE 


FILE 


#22 ■ 


■>MINT 


INCLUDE 


FILE 


#23 ■ 


■>AUXSTUFF 


INCLUDE 


FILE 


#24 ■ 


■>BANGER2 


INCLUDE 


FILE 


#25 ■ 


■>SWITCHER2 


INCLUDE 


FILE 


#26 ■ 


■>COMMAND 


INCLUDE 


FILE 


#27 ■ 


OMBASIC 


INCLUDE 


FILE 


#28 


■>BANGER 


INCLUDE 


FILE 


#29 


■>VECT0RS2 
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01 FIRM 

0000: 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



0000 



F800 



INCLUDE FILE #02 
C100: 
C100: 



X6502 



2 

3 

4 

5 

6 

7 

8 

9 
10 
1 1 
12 
13 
14 
15 

ie 

17 
18 
19 
20 
21 
22 
23 
24 
25 
26 F80RG 



31-MflY-8S 



##•»»##########«###»##»« 



PAGE 2 



Firmware for the Apple //c 
December, 1983 



Rich Williams 
Ernie Beernlnk 
James R Huston 

Revision 2 May, 1985 

rom expanded to 32K In 2 IGK ban 

new features added: 

Protocol converter slot 5 

AppleTalk slot 7 

//e diagnostics 

Enhanced serial port commands 

Mini assembler 

Step and trace 
most $F8 rom changes marked with 



ks 



*»»•##»#« 



»«««««•««««««««««««««*«««*««««« 



EQU 



$F800 



■>NAMES 
29 
30 



1st on 
Include equates 



iEquates for Video t Monitor RDM 
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B3 EQUATES 


Appl 


e lie V 


ideo Firmware 


ClflB : 




2 


*************************** 


C100: 




3 


* 






C100: 




4 


* Apple 


lie 




C1B0: 




5 


• Video 


Firmware and 


C100: 




6 


* Monlt 


or ROM Source 


C100: 




7 


* 






C100: 




8 


* COPYRIGHT 1977-1983 BY 


C100: 




9 


* APPLE 


COMPUTER, INC. 


C100: 




10 


« 






C100: 




11 


* ALL RIGHTS RESERVED 


C100 




12 


» 






C100 




13 


• S. WQZNIAK 


1977 


C100 




14 


• A. BAUM 


1977 


C100 




15 


* JOHN 


A 


NOV 1978 


C100 




16 


* R. AURICCHIO 


SEP 1981 


C100 




17 


* E. BEERNINK 


1983 


C100 




18 


* 






C100 




19 


#«■**»•»**«»#»*#*■*««*•#**•*» 


C100 




20 


« 






C100 




21 


* ZERO 


PAGE EQUATES 


C100 




22 


« 






C100 


0000 


23 


LOC0 


EQU 


$00 


C100 


0001 


24 


L0C1 


EQU 


$01 


C100 


0020 


25 


WNDLFT 


EQU 


$20 


C100 


0021 


26 


WNDWDTH 


EQU 


$21 


C100 


0022 


27 


WNDTOP 


EQU 


$22 


C100 


0023 


28 


WNDBTM 


EQU 


$23 


C100 


0024 


29 


CH 


EQU 


$24 


C100 


0025 


30 


CV 


EQU 


$25 


C100 


0026 


31 


GBASL 


EQU 


$26 


C100 


0027 


32 


GBASH 


EQU 


$27 


C100 


0028 


33 


BASL 


EQU 


$28 


C100 


0029 


34 


BASH 


EQU 


$29 


C100 


002A 


35 


BAS2L 


EQU 


$2A 


C100 


002B 


36 


BAS2H 


EQU 


$2B 


C100 


002C 


37 


H2 


EQU 


$2C 


C100 


002C 


38 


LMNEM 


EQU 


$2C 


C100 


002C 


39 


RTNL 


equ 


$2C 


C100 


002D 


40 


V2 


EQU 


$2D 


C100 


002D 


41 


RMNEM 


EQU 


$2D 


C100 


002D 


42 


rtnh 


equ 


$2D 


C100 


002E 


43 


MASK 


EQU 


$2E 


C100 


002E 


44 


FORMAT 


EQU 


$2E 


C100 


002F 


45 


LENGTH 


EQU 


$2F 


C100 


: 0030 


46 


COLOR 


EQU 


$30 


C100 


: 0031 


47 


MODE 


EQU 


$31 


C100 


: 0032 


48 


INVFLG 


EQU 


$32 


C100 


: 0033 


49 


PROMPT 


EQU 


$33 


C100 


: 0034 


50 


YSAV 


EQU 


$34 


C100 


: 0035 


51 


YSAV1 


EQU 


$35 


C100 


: 0036 


52 


CSWL 


EQU 


$36 


C100 


: 0037 


53 


CSWH 


EQU 


$37 


C100 


: 0038 


54 


KSWL 


EQU 


$38 


C100 


: 0039 


55 


KSWH 


EQU 


$39 


C100 


: 003A 


56 


PCL 


EQU 


$3A 


C100 


: 003B 


57 


PCH 


EQU 


$3B 


C100 


: 003C 


58 


XQT 


EQU 


$3C 


C100 


: 003C 


59 


AIL 


EQU 


$3C 
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;vector for autostart from disk 

5 left edge of text window 
;wxdth of text window 
;top of text window 
;bottom+1 of text window 
jcursor horizontal position 
^cursor vertical position 
ilo-res graphics base addr . 

;text base address 

;temp base for scrolling 



temp 


for 


lo-res graphics 


temp 


for 


mnemonic decoding 


Step 


ret 


urn address 


temp 


for 


lo-res graphics 


temp 


for 


mnemonic decoding 


Step 


ret 


urn address 


color 


mask for lo-res gr . 


temp 


for 


opcode decode 


temp 


for 


opcode decode 


color 


for lo-res graphics 


Moni 1 


or 


mode 


norma 


l/inverse(/f lash) 


promp 


t c 


narac ter 


posi t 


ion 


in Monitor command 


temp 


for 


Y register 


character output hook 



jcharacter Input hook 

; temp for program counter 

iStep and trace execute area 
;Monitor temp 



ipendix A: Firmware listing 



03 EQUATES 



C10a 

0100 

C100 

0100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

ci0e 

C100 
C100 
C100 



Apple lie Video Firmware 



003D 
003E 
003F 
0040 
0041 
0042 
0043 
0044 
004S 



0044 
004S 

0046 
0047 
0048 
0049 
004E 
004F 



0006 
0095 
009B 



0200 



03F0 
03F2 
03F4 
03F5 
03F8 
03FB 
03FE 
0400 
07F8 



C000 
C000 
C000 
C001 
C002 
C003 
C004 
C005 
C008 



60 A1H 

61 A2L 

62 A2H 

63 A3L 

64 A3H 

65 A4L 

66 A4H 

67 A5L 

68 A5H 
69 
70 
71 

72 * also destroys $44 (MACSTAT) . 

73 • 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$3D 
»3E 
«3F 
(40 
$41 
$42 
$43 
$44 
$45 



31-MAY-85 

;Moriitor temp 

;Monitor temp 

;Monitor temp 

jMonitor temp 

jMonitor temp 

;Monitor temp 

;MoTiltor temp 

jMonitor temp 

iMoTiitor temp 
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♦ Note: In Apple II, //e, both interrupts and BRK destroyed 

* location $45. Now only BRK destroys $45 CACC) and it 



EQU 
EQU 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



74 MACSTAT 

75 ACC 

76 * 

77 XREG 

78 YREG 

79 STATUS 

80 SPNT 

81 RNDL 

82 RNDH 

83 * 

84 • Value equates 

85 ♦ 

86 G00DF8 EQU 

87 PICK EQU 

88 ESC EQU 

89 * 
Characters read by GETLN are placed In 
IN, terminated by a carriage return. 



$44 
$45 

$46 
$47 
$48 
$49 
$4E 
$4F 



$06 
$95 
$9B 



jMachine state after BRK 
;Acc after BRK 



X reg after break 
Y reg after break 
P reg after break 
SP after break 
random counter low 
random counter high 



;value of //e, lolly ID byte 
iCONTRDL-U character 
;what ESC generates 



90 

91 

92 • 

93 IN 

94 * 

95 * 

96 * 

97 BRKV 

98 SOFTEV 

99 PWREDUP 

100 AMPERV 

101 USRADR 

102 NMI 

103 IRQLOC 

104 LINE1 
MSLQT 



105 
106 
107 

108 * 

109 lOADR 

110 KBD 

111 CLR80CaL 

112 SET80COL 



EQU 

3 vectors 

EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$0200 



$03F0 
$03F2 
$03F4 
$03F5 
$03F8 
$03FB 
$03FE 
$0400 
$07F8 



HARDWARE EQUATES 



EQU 
EQU 
EQU 
EQU 



113 RDMAINRAM EQU 

114 RDCARDRAM EQU 

115 WRMAINRAM EQU 

116 WRCARDRAM EQU 

117 SETSTDZP EQU 



$C000 
$C000 
$C000 
$C001 
$C002 
$C003 
$C004 
$0005 
$C008 



I input buffer for GETLN 



ivectors here after break 

;vector for warm start 

;THIS MUST - EDR #$A5 OF SOFTEV* 1 

iAPPLESOFT » EXIT VECTOR 

jAPPLESQFT USR function vector 

;NMI vector 

jMaskable interrupt vector 

;fir5t line of text screen 

iowner of $C8 space 



;for IN#, PR# vector 
;>127 if keystroke 
idisable 80 column store 
;enable 80 column store 
;read from main 48K RAM 
;read from alt. 48K RAM 
;write to main 48K RAM 
;write to alt. 48K RAM 
;u5e main zero page/stack 
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B3 EQUATES 


flppj 


e //c Vid 


eo Firmware 
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C100 


C009 


118 


SETALTZP 


EQU 


$C009 


use alt. zero page/stack 


C100 


C00C 


119 


CLR80VID 


EQU 


$C00C 


disable 80 column hardware 


C100 


C00D 


120 


SET80VID 


EQU 


iC00D 


enable 80 column hardware 


C100 


CSBE 


121 


CLRfiLTCHflR EQU 


$C00E 


normal LC, flashing UC 


C100 


C00F 


122 


SETALTCHAR EQU 


$C00F 


normal inverse, LC; no flash 


C100 


C010 


123 


KBDSTRB 


EQU 


$C010 


turn off key pressed flag 


C100 


C011 


124 


RDLCBNK2 


EQU 


$C011 


>127 if LC bank 2 is in 


C100 


C012 


125 


RDLCRAM 


EQU 


$C012 


>127 if LC RAM read enabled 


C100 


C013 


126 


RDRAMRD 


EQU 


«C013 


>127 if reading main 48K 


C100 


C014 


127 


RDRAMWRT 


EQU 


«C014 


>127 if writing main 48K 


0100 


C016 


128 


RDALTZP 


EQU 


$C016 


>127 if Alt ZP and LC switched in 


C100 


C018 


129 


RD80CaU 


EQU 


$C018 


>127 if 80 column store 


C100 


C019 


130 


RDVBLBAR 


EQU 


«C019 


>127 If not VBL 


C100 


C01fl 


131 


RDTEXT 


EQU 


$C01A 


>127 if text Cnot graphics) 


C100 


C01B 


132 


RDM IX 


EQU 


$C01B 


>127 If mixed mode on 


C100 


C01C 


133 


RDPAGE2 


EQU 


$C01C 


>127 if TXTPAGE2 switched in 


C100 


C01D 


134 


RDHIRES 


EQU 


$C01D 


>127 if HIRES is on 


C100 


C01E 


135 


ALTCHARSET EQU 


$C01E 


>127 if alternate char set in use 


C100 


C01F 


138 


RD80VID 


EQU 


$C01F 


>127 if 80 column hardware in 


C100 


C028 


137 


ROMBANK 


EQU 


«C028 


Switches rombanks 


C100 


C030 


138 


SPKR 


EQU 


$C030 


clicks the speaker 


C100 


C050 


139 


TXTCLR 


EQU 


$C050 


switch in graphics Cnot text) 


C100 


C0B1 


140 


TXTSET 


EQU 


$C051 


switch in text (not graphics) 


C100 


C0B2 


141 


MIXCLR 


EQU 


$C052 


clear mixed-mode 


C100 


C053 


142 


MIXSET 


EQU 


$C053 


set mixed-mode (4 lines text) 


C100 


C054 


143 


TXTPAGE1 


EQU 


$C054 


switch in text page 1 


C100 


C055 


144 


TXTPAGE2 


EQU 


$C05S 


switch in text page 2 


C100 


C056 


145 


LORES 


EQU 


$C056 


low-resolution graphics 


C100 


C0S7 


146 


HIRES 


EQU 


$C057 


high-resolution graphics 


0100 


C058 


147 


CLRAN0 


EQU 


$C058 




C100 


C0S9 


148 


SETAN0 


EQU 


*C059 




C100 


C05A 


149 


CLRAN1 


EQU 


$C05A 




C100 


C05B 


150 


SETAN1 


EQU 


«C05B 




C100 


C0SC 


151 


CLRAN2 


EQU 


$C05C 




C100 


C05D 


152 


SETAN2 


EQU 


$C05D 




C100 


C0BE 


153 


CLRAN3 


EQU 


$C05E 




C100 


C05F 


154 


SETAN3 


EQU 


$C05F 




C10B 


C060 


155 


RD40SW 


EQU 


»C060 


>127 if 40/80 switch in 40 pos 


C100 


C061 


156 


BUTN0 


EQU 


$C061 


open apple key 


C100 


C062 


157 


BUTN1 


EQU 


$C062 


iclosed apple key 


C100 


C061 


158 


PADDL0 


EQU 


$C064 


; read paddle 


C100 


C070 


159 


PTRIG 


EQU 


$C070 


;trigger the paddles 


C100 


C081 


160 


ROMIN 


EQU 


$C081 


;5witch in $D000-»FFFF RDM 


C100 


C083 


161 


LCBANK2 


EQU 


$C083 


;5witch in LC bank 2 


C100 


C08B 


162 


LCBANK1 


EQU 


$C08B 


;swltch in LC bank 1 


C100 


CFFF 


163 


CLRRQM 


EQU 


$CFFF 


iswltch out $C8 ROMs 


C100 


E000 


164 


BASIC 


EQU 


$E000 


;BASIC entry point 


C100 


E003 


165 


BASIC2 


EQU 


»E003 


;BASIC warm entry point 


C100 




166 


« 








C100 


04FB 


167 


VMDDE 


EQU 


$4F8+3 


;DPERAT1NG MODE 


C100 




168 


« 








C100 




169 


• BASIC VMQDE 


BITS 




C100 




170 


» 








C100 




171 


* 1 


. - BASIC active 




C100 




172 


* 


. - P 


ascal active 




C100 




173 


• .0 








C100 




174 


♦ .1 








C100 




175 


• ..0 


. - P 


rlnt control characters 
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3100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 

;i00 

C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 



00<10 

0020 
0008 

0001 



0080 

0010 

0008 
0004 

0478 
04F8 
0578 
05F8 

047B 
057B 
0SFB 
067B 
06FB 
077B 
07FB 



0356 
0300 



176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 



1 . 



. 1 



- Don't print ctri chars 

- Print control characters 

- Don't print ctrl chars. 



M.40 
M.CTL2 
M.CTL 
M. MOUSE 



, 1 - 

EQU 
EQU 
EQU 
EQU 



Print mouse characters 
Don't print mouse characters 



$40 
$20 
$08 
$01 



;Don't print controls 
;Don't print controls 
iDon't print mouse chars 



Pascal Mode Bits 



1 . . 



, 1 



BASIC active 
Pascal active 



Cursor always on 
Cursor always off 
GOTOXY n/a 
GOTOXY in progress 
Normal Video 
Inverse Video 



Print mouse chars 
Don't print mouse chars 



PASCAL EQU $80 

CURSOR EQU $10 

eOXY EQU $08 

VMODE EQU $04 



ROMSTATE EQU $478 

TEMPI EQU $4F8 

TEMPA EQU $578 

TEMPY EQU $5F8 



OLDCH 

DURCH 

OURCV 

VFACTV 

XCDORD 

NXTCUR 

CURSOR 



EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



$478+3 
$578+3 
$5F8+3 
$678+3 
$6F8+3 
$778+3 
$7F8+3 



;Pascal active 
jDon't print cursor 
;GDTOXY IN PROGRESS 



itemp store of RDM state 

sused by CTLCHAR 

; used by scroll 

i used by scrol 1 

last value of CH 

80-COL CH 

CURSOR VERTICAL 

Bit7=video firmware inactive 

X-COORD (GOTOXY) 

next cursor to display 

the current cursor char 



* Disk II boot rom equates 



DNIBL 
NBUF1 



EQU 
EQU 



$356 
$300 



03 EQUATES 



C100 
C100 
C100 



Apple //c Video Firmware 

002B 234 SLQTZ EQU $2B 
003C 235 BOOTTMP EQU $3C 
001F 236 BDOTDEV EQU tIF 
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C100 
Cia0 
C100 
C100 
C100 
C100 
C100 
C100 



C880 
C5F5 
CSF8 
C580 



238 
239 
240 
241 



«««««««*«««*««**»««««*«*«*« 



*»*#««»#*#* 



Entry points for other modules 



pcnv 

242 bootfail 

243 pcnvrst 

244 atalk 
31 



equ 
equ 
equ 
squ 



$C880 
$C5F5 
$C5F8 
$C580 



inc lude serial 



;Boot fails message 
;Protocol converter reset 
; Apple talk 
;Equate5 for serial code 



60 
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04 SERIAL 



C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 

C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 
C100 



Serial & Communications equates 
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C100 
C200 

00BF 
00DF 

008A 
0091 
0093 
03B8 

0138 
01B8 
0538 
05F9 
0SFA 
0679 
067A 
0638 
06B8 



3 

4 

5 

6 

7 

8 

9 

10 

1 1 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 
S3 
54 
55 
56 
57 
58 
59 
60 



##*»#»*###«##»*#♦♦#««« 



* Apple Lolly communications driver 

# 

* By 

* Rich Williams 

* August 1983 

* November 5 - j.r. Huston 

« 



* Command codes 

« 

* Default command char is ctrl-A ("A) 



-An 
"An 
"AI 
"AK 
"AL 
"An 
"An 
"AQ 
"AR 
"AS 
"AT 
"AZ 
"Ax 
"An 



nB: 
nD: 



nCR 



& set printer width 
nn 



Set baud rate to nn 
Set data format bits to nn 
Enable video echo 
Disable CRLF 
Enable CRLF 
Disable video echo 
Set pari ty bits tc 
Quit terminal mode 
Reset the ACIA, IN*0 PR#0 
Send a 233 ms break character 
Enter terminal mode 
Zap control commands 
Set command char to "x 
;Set printer width (CR = carriage return) 



* New commands added in rev 1 E = enable D » Disable 



AC E/D 
"AL E/D 
"AM E/D 
"AX E/D 
"AF E/D 



ser 5 lo t 
coms lot 



Column overflow 
Linefeed same as L & K 
Mask incoming linefeeds 
Xon Xoff handshaking 
Find keyboard 



cmdcur 
t ermcur 

Ifeed 
xon 
xoff 
sermode 

as tat 
pwdth 
ext int 
ext int2 
typhed 
oldcur 
o ldcur2 
eschar 
flags 



equ 
equ 
msb 
equ 
equ 
msb 
equ 
equ 
equ 
equ 

equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



$C108 
$C200 
ON 
' ? ' 

OFF 
$8A 
$91 
$93 
$3B8 

$438 
$4B8 
$538 
$5F9 
$5FA 
$679 
$67A 
$638 
$6B8 



iCursor while in command mode 
jCursor while in terminal mode 

; Linefeed 
;XON character 
; XOFF charac ter 

;D7'=1 if in command D6= 1 if terminal 
$479 * $47A 
;Acia status from int 4F9 I, 4FA 
;Printer width 579 & S7A 
;extint * typhed enable 5F9 t, 5FA 



;Save5 cursor while in command 
;Saves cursor while in terminal mode 
;Current escape character 6F9 & 6FA 
;D7 = Video echo D6 - CRLF 779 4 77A 
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61 



04 SERIAL 


Serial & Communica 


t ions e 


c^ee 


0738 


61 


col 


equ 


$738 


c^^^ 


047E 


62 


number 


equ 


$47E 


C100 


04FF 


63 


ac iabuf 


equ 


$4FF 


C100 


0B7F 


64 


twser 


equ 


$57F 


C100 


05FF 


85 


twkey 


equ 


$5FF 


C100 


067F 


66 


t rser 


equ 


$67F 


C100 


0GFF 


67 


trkey 


equ 


$6FF 


C100 


0800 


68 


thbuf 


equ 


$800 


C100 


0GF8 


69 


temp 


equ 


$SF8 


C100 


05FE 


70 


charbuf 


equ 


$5FE 


C100 


BFF8 


71 


sdata 


equ 


$BFF8 


C100 


BFF9 


72 


sstat 


equ 


$BFF9 


C100 


BFFA 


73 


scomd 


equ 


$BFFA 


C100 


BFFB 


74 


scntl 


equ 


*BFFB 


C100 




32 




i nc 1 


ude 5er 
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Current printer column 7F9 & 7FA 

Number accumulated in command 

Owner of serial buffer 

Storage pointer for serial buffer 

Storage pointer for type ahead buffer 

Retrieve pointer for serial buffer 

Retrieve buffer for type ahead buffer 

Buffer in alt ram space 

Temp storage 

5FE, 67E are one byte character buffers 

+$N0*$90 is output port 

ACIA status register 

ACIA command register 

ACIA control register 

Printer port @ $C100 



62 



.ppendix 



irmwai'e Lisi.uij; 



05 SER 






Serial output 


port 


rout ine 


c^^e■. 






3 


*org sers 


lot 




C100:2C 


89 


CI 


4 




bit 


serr ts 


C1B3:70 


0C 


CI 11 


5 




bv5 


entrl 


C105:38 






6 




sec 




C106:90 






7 




dfb 


$90 


C1B7: 18 






8 




clc 




C108:B8 






9 




civ 




C109:50 


06 


CI 11 


10 




bvc 


entrl 


C10B:01 






12 




dfb 


$01 


C10C:31 






13 




dfb 


$31 


C10D:9E 






14 




dfb 


>p1 ini t 


C10E:A8 






15 




dfb 


>p1 read 


C10F:B<? 






16 




dfb 


>p Iwr 1 te 


C110:BB 






17 




dfb 


>p1 status 


CI 11 :DA 






19 


ent r 1 


phx 




C112:A2 


CI 




20 




Idx 


'<serslot 


C114:4C 


1C 


C2 


21 




jmp 


setup 
ser i sou t 


C117:90 


03 


CI 1C 


22 


serpor t 


bcc 


C119:4C 


ES 


C7 


23 




Jmp 


swzznm 


CI 1C:0A 






24 


ser 1 sout 


asl 


A 


C11D:7A 






25 




ply 
phy 




C11E:5A 






26 






C 1 1 F : BD 


B8 


04 


27 




Ida 


pwdth, X 


C122:F0 


42 


CI 66 


28 




beq 


prnow 


C124:AS 


24 




29 




Ida 


ch 


C126:B0 


1C 


C144 


30 




bcs 


servid 


C128:DD 


B8 


04 


31 




cmp 


pwdth , X 


C12B:90 


03 


C130 


32 




bcc 


chok 


C12D:BD 


38 


07 


33 




Ida 


col , X 


C130:DD 


38 


07 


34 


chok 


cmp 
bcs 


col , X 


C133:B0 


0B 


C140 


35 




flxch 


C135:C9 


11 




36 




cmp 


*$11 


C137:B0 


1 1 


C14A 


37 




bcs 


prnt 

'$F0 


C139:09 


F0 




38 




era 


C13B:3D 


38 


07 


39 




and 


CO 1 , x 


C13E:65 


24 




40 




adc 


ch 


C140:8S 


24 




41 


flxch 


sta 


Oh 


C142:80 


06 


C14A 


42 




bra 


prnt 
wndwd th 


C144:C5 


21 




43 


servld 


cmp 


C146:90 


02 


C14A 


44 




bit 


prnt 
ch 


C148:64 


24 




45 




stz 



31-MAY-8S 



PAGE 10 



;Set V to indicate Initial entry 
iAlways taken 

; I nput entry point 
;BCC opcode 

;V = since not initial entry 
jAlways taken 

^pascal signiture byte 
jdevice signiture 



;Save the reg 
;X = Cn 

;Set mslot, etc 
;Only output allowed 
iReset the hooks 
;A - flags 

;Get char 

;Formatting enabled? 

iOet current horiz position 

;Branch if video echo 

;If CH >= PWIDTH, then CH = COL 



;Must be > col for valid tab 

jBranch if ok 

;8 or 16? 

;If > forget it 

;Find next comma cheaply 

;Don't blame me it's Dick's trick 

; Save the new position 

;If ch>= wndwdth go back to start of 
1 ine 



;Go back to left edge 



C14A 








C14A 


:7A 






C14B 


;5A 






C14C 


:BD 


38 


07 


C14F; 


:DD 


B8 


04 


C152i 


:B0 


08 




C1S4; 


;C5 


24 




CI 56: 


:B0 


0E 




C158i 


;A9 


40 




C1SA! 


:80 


02 


1 


CISC; 


A9 


1A 




C15E: 


C0 


80 





CISC 



CI 66 



C1SE 



47 


• We have 


a ch 


ar to print 


48 
49 
50 


prnt 


ply 

phy 

Ida 


col , X 


51 




cmp 


pwdth, X 


52 




bge 


toof ar 


53 




cmp 


ch 


54 




bqe 


prnow 


55 




Ida 


'$40 


56 




bra 


tab 


57 


toof ar 


Ida 


*$1A 


58 


tab 


cpy 


'$80 



; Have we exceeded width? 

;Are we tabbing? 

;Spaoe * 2 

;CR * 2 

;C = High bit 



Pl)eri(iix A: Fiiinware Listing 



05 SER 



Serial output port routine 
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C160:6A 
C161 :20 9B 
C164:80 E4 
CI 66: 98 
C167:20 8A 



C16ft; 
CISDi 
C16F: 
C1721 
C174; 
C177: 



BD B8 
F0 17 
3C B8 
30 12 
BD 38 
FD B8 



CI 



C14A 



CI 
04 



CI 86 



06 



CI 86 



07 
04 



C17A:C9 F8 

C17C:90 04 

C17E: 18 

C17F:65 

C181 ;AC 

C182;A9 

C184:85 

0186:68 

C187:7A 

C188:FA 

C189:60 



21 



00 
24 



C182 



59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 



prnow 



setch 



done 



ser r t 5 



ror 


A 


i^r 


go5er3 


bra 


prn t 


tya 




jsr 


serout 


Ida 


pwdth , X 


beq 


done 


bit 


f lags.x 


bml 


done 


Ida 


col , X 


5bc 


pwdth , X 


cmp 


#$F8 


bcc 


setch 


clc 




adc 


wndwd th 


dfb 


$AC 


Ida 


*0 


sta 


ch 


pla 




ply 




plx 




rts 





;Shift it into char 
; Ou t it goes 

;Print the actual char 
jFormatting enabled 

; I n video echo? 

;Check if within 8 chars of right edge 
; So BASIC can format output 

;If not within 8, we're done 



; Dummy LDY to skip next two bytes 
;Keep cursor at if video off 



; Res tore regs 



C18A 








C18A 


82 


serout 


equ 


* 


C18A 


20 


A9 


C7 




83 




jsi" 


swcmd 


C18D 


90 


FA 




C189 


84 




bcc 


serr t s 


C18F 








C18F 


85 


serout2 


equ 


# 


C18F 


3C 


B8 


06 




86 




bit 


flags , X 


C192 


10 


07 




C19B 


87 




bpl 


go5er3 


C194 


C9 


91 






88 




cmp 


*xon 


CI 96 


F0 


03 




C19B 


89 




beq 


goserS 


C198 


20 


F0 


FD 




90 




jsr 


cout 1 


C19B 


4C 


CD 


C7 




91 


go5er3 


jmp 


5W5er3 


C19E 










93 


* Pascal 


suppor 


t stuff 


C19E 


5A 








94 


pi ini t 


phy 




C19F 


48 








95 




pha 




C1A0 


20 


B6 


C2 




96 




jsr 


def aul t 


C1A3 


9E 


B8 


06 




97 




stz 


flags , X 


C1A6 


80 


07 




C1AF 


98 




bra 


pi read2 


C1A8 


5A 








100 


pi read 


phy 




C1A9 


20 


D9 


C7 




101 




J = i" 


swread 


C1AC 


90 


FA 




C1A8 


102 




bcc 


p 1 read 


C1AE 


90 








103 




dfb 


$90 


C1AF 


68 








104 


pi read2 


pla 




C1B0 


7A 








105 




ply 




C1B1 


A2 


00 






106 




Idx 


*0 


C1B3 


60 








107 




rts 




C1B4 


SA 








109 


p Iwr i te 


phy 




C1B5 


48 








110 




pha 




CI 36 


20 


8A 


CI 




111 




jsr 


serout 


C1B9 


80 


F4 




C1AF 


112 




bra 


p1read2 



; Ser ial output 
iCheck if command 
iAU done if it is 

; N= 1 iff video on 

;Don't echo *Q 

;Echo it 

; Go to serout3 



jset defaults, enable acia 
; al 1 done . . . 



;read data from serial port (or buffer) 
jBranch if data not ready 
iBCC to skip pla 



; Go output character 



64 



AppeiKiix A: Firimvare Listiii! 



05 SER 






Serla 


L output 


port 


rou t i ne 


C1BB 


:SA 






113 


P 


1 status 


phy 




C1BC 


:48 






114 






pha 




C1BD 


:4A 






lis 






Isr 


A 


CI BE 


:D0 


15 


C1D5 


116 






bne 


p 1 err 


C1C0 


:08 






117 






php 




C1C1 


20 


D3 


C7 


118 






j SI" 


swget s t 


C1C4 


28 






119 






pip 
bcc 


C1C5 


90 


05 


C1CC 


120 






p 1 5 twr 


C1C7 


29 


28 




121 






and 


#$28 


C1C9 


0A 






122 






asl 


A 


C1CA 


80 


02 


C1CE 


123 






bra 


plstrd 


C1CC 


29 


30 




124 


P 


stwr 


and 


'$30 


C1CE 


C9 


10 




125 


P 


strd 


cmp 


#$10 


C1D0 


F0 


DD 


C1AF 


126 






beq 


p1read2 


C1D2 


18 






127 






clc 


C1D3 


80 


DA 


C1AF 


128 






bra 


pi read2 


C1D5 


A2 


40 




129 


P1 


err 


Idx 


#$40 


C1D7 


G8 






130 






pla 




C1D8 


7A 






131 






ply 




C1D9: 


18 






132 






clc 




C1DA: 


60 






133 






rts 




C1DB! 






0025 


135 






ds 


comslot-* , $ 


C200: 








33 






inclu 


de comm 
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;C = output, 1 input 
;Branch If bad call 

;Get status in A 



;Te5t DCD = 
;$08 -> $10 



& rcvr full 



Test DCD » 4 xmit empty 
Is it what we want? 
C = 1 if equal 
; No t ready 

;Bad call 



; Communications port @ $C200 



Appendix A: 



65 



06 COMM 






Communlcat 


ions port 


rou t i ne 


C200:2C 


89 


CI 


3 




bit 


serr t 5 


C203:70 


14 


C219 


4 




bvs 


ent r 


C20S:38 






5 


5lTl 


sec 




C206:90 






6 




dfb 


$90 


C207: 18 






7 


sou t 


clc 




C208:B8 






8 




civ 




0209:50 


0E 


C219 


9 




bvc 


entr 


C20B:01 






11 




dfb 


$81 


C20C:31 






12 




dfb 


$31 


C20D:11 






13 




dfb 


>p2init 


C20E! 13 






14 




dfb 


>p2read 


C20F: 15 






15 




dfb 


>p2wr i te 


C210: 17 






ie 




dfb 


>p2statu5 
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;Set V to indicate initial entry 

;Input entry point 
;BCC opcode to skip next byte 

;Dutput entry point 

;Mark not initial entry 
jBranch around pascal entry stuff 

jpascal signiture byte 
;device signiture 



C211 : 



18 



Pascal support stuff 



C211 


80 


8B 




C19E 


20 


p2lni t 


bra 


pi Inl t 


C213 


80 


93 




C1A8 


21 


p2read 


bra 


pi read 


C215 


80 


9D 




C1B4 


22 


p2wrl te 


bra 


p 1 wr 1 te 


C217 


80 


A2 




C1BB 


23 


p25 tatus 


bra 


p 1 s tatus 


C219 


DA 








25 


entr 


phx 




C21A 


A2 


C2 






26 




Idx 


#<coms lot ; 


C21C 








C21C 


27 


setup 


equ 


* 


C21C 


5A 








28 




phy 




C21D 


48 








29 




pha 




C21E 


8E 


F8 


07 


30 




stx 


ms lo t 


C221 


50 


22 




C245 


31 




bvc 


sudone ; 


C223 


A5 


36 






32 




Ida 


cswl ; 


C225 


45 


38 






33 




eor 


kswl 


C227 


F0 


06 




C22F 


34 




beq 


sudodef 


C229 


A5 


37 






35 




Ida 


cswh ; 


C22B 


C5 


39 






36 




cmp 


kswh ; 


C22D 


F0 


03 




C232 


37 




beq 


sunodef 


C22F 


20 


B6 


C2 


38 


sudodef 


jsr 


default ; 


C232 


8A 








39 


sunodef 


txa 




C233 


45 


39 






40 




eor 


kswh ; 


C235 


05 


38 






41 




ora 


kswl 


C237 


D0 


07 




C240 


42 




bne 


suout ; 


C239 


A9 


05 






43 




Ida 


#>5in ; 


C23B 


85 


38 






44 




sta 


kswl 


C23D 


38 








45 




sec 




C23E 


80 


05 




C245 


46 




bra 


sudone 


C240 


A9 


07 






47 


suou t 


Ida 


#>5ou t ; 


C242 


85 


36 






48 




sta 


cswl ; 


C244 


13 








49 




clc 




C24S 


BD 


B8 


06 


50 


sudone 


Ida 


flags, X ; 


C248 


89 


01 






51 




bit 


*i ; 


C24A 


D0 


03 




C24F 


52 




bne 


commpor t 


C24C 


4C 


17 


CI 




53 


comout 


J"'? 


serpor t 


C24F 


90 


FB 




C24C 


54 


commpor t 


bcc 


comout ; 


C251 


68 








55 




pla 




C252 


80 


28 




C27C 


56 




bra 


termi ; 


C254 


3C 


B8 


03 




57 


noesc 


bit 


5ermode,x ; 


C257 


50 


1C 




C275 


58 




bvc 


exiti ; 


C259 


20 


8F 


01 




59 




] = '■ 


5erout2 ; 


C25C 


80 


IE 




C27C 


60 




bra 


termi 



<CN00 



First call? 

If both hooks CN00 setup defaults 

If both hooks CN then don't do def 
since it has already been done 

Set up def au 1 1 5 

I npu t call? 

Must be Cn00 

Fix the i npu t hook 

; C = 1 for input call 

Fix output hook 

Note C might not be 

;C=0 for output 

Check if serial or comm port 

Leave flags in a for serport 



Output? 

;Get the char 

I npu t 

In terminal mode? 

If not, return key 

Out it goes 



06 COMM 








Communications port 


routine 


C2BE 








C2SE 


61 


testkbd 


equ 


# 


C2BE 


:G8 








62 




pla 




C25F 


:20 


70 


CC 




63 




] = >- 


update 


C262 


: 10 


IB 




C27F 


G4 




bpl 


serin 


C2G4 


:20 


A9 


C7 




65 




] = '• 


swcmd 


C267 


:B0 


EB 




C254 


66 




bc5 


noesc 


C269 


:29 


5F 






67 




and 


'C$5f 


C26B 


:C9 


51 






68 




cmp 


<"Q' 


C26D 


:F0 


04 




C273 


69 




beq 


exitX 


C26F 


:C9 


52 






70 




cmp 


*'R' 


C271 


:D0 


09 




C27C 


71 




bne 


terml 


C273 


:A9 


98 






72 


exitX 


Ida 


#$98 


C275 


7A 








73 


exltl 


ply 




C276 


FA 








74 




plx 




C277 


60 








75 




rts 




C278 


18 








76 


goremote 


clc 




C279 


20 


A3 


C7 




77 


go term 


J5'- 


swat tm 


C27C 








C27C 


78 


terml 


equ 


» 


C27C 


20 


4C 


CC 




79 




] = !■ 


showcur 


C27F 


48 








80 


ser In 


pha 




C280 


20 


D9 


C7 




81 


5 Inokbd 


J3'" 


swread 


C283 


B0 


09 




C28E 


82 




bC5 


sldata 


C285 


BD 


B8 


0G 




83 




Ida 


f lags , X 


C288 


29 


10 






84 




and 


#$10 


C28A 


F0 


D2 




C25E 


85 




beq 


testkbd 


C28C 


80 


F2 




C280 


86 




bra 


sinokbd 


C28E 


A8 








87 


sldata 


tay 




C28F 


68 








88 




pla 




C290 


SA 








89 




phy 




C291 


20 


B8 


C3 




90 




Jsr 


5 torch 


C294 


68 








91 




pla 




C295 


BC 


38 


06 




92 




Idy 


eschar , x 


C298 


F0 


12 




C2AC 


93 




beq 


s inomod 


C29A 


09 


80 






94 




ora 


#$80 


C29C 


C9 


91 






95 




cmp 


#xon 


C29E 


F0 


DC 




C27C 


96 




beq 


terml 


C2A0 


C9 


FF 






97 




cmp 


#$FF 


C2A2 


F0 


D8 




C27C 


98 




beq 


terml 


C2A4 


C9 


92 






99 




cmp 


#$92 


C2Ae 


F0 


D0 




C278 


100 




beq 


goremote 


C2A8 


C9 


94 






101 




cmp 


#$94 


C2AA 


F0 


CD 




C279 


102 




beq 


goterm 


C2AC 


3C 


B8 


03 




103 


5 inomod 


bit 


sermode , x 


C2AF 


50 


C4 




C275 


104 




bvc 


exit1 


C2B1 


20 


ED 


FD 




105 




] = '■ 


cou t 


C2B4 


80 


C6 




C27C 


106 




bra 


terml 


C2BG 








C2BG 


107 


default 


equ 


# 


C2B6 


20 


9A 


CF 




108 




jsr 


movei rq 


C2B9 


BC 


29 


C2 




109 




Idy 


def idx-$C 


C2BC 


20 


7C 


C3 




110 


def loop 


j = r 


getal t 


C2BF 


48 








11 1 




pha 




C2C0 


88 








112 




dey 




C2C1 


30 


04 




C2C7 


113 




bmi 


defff 


C2C3: 


CB 


03 






114 




<=py 


#3 


C2C5: 


D0 


F5 




C2BC 


115 




bne 


def loop 


C2C7: 


20 


9A 


CF 




116 


defff 


j = '' 


movei rq 


C2CA: 


68 








117 




pla 




C2CB: 


BC 


2B 


C2 




118 




Idy 


devno , x 
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;Get current char 

Update cursor & check keyboard 

N=0 if no new key 

Test for command 

Branch if not 

upshift for following tests 

Quit? 

Reset? 

Go chec k serial 

return a CTRL-X 



;Into remote mode 
;Into terminal mode 

;Get current char on screen 

; I s it ready? 

jBranch if we got data 

; Is keyboard enabled? 

; Branch if enabled 
; Go test acia again 
; Save new input in y for now 

; Save new char on stack 

Fix the screen 

; Get the new data 

If 0, don't modify char 

Apple loves the high bit 

Ignore *Q 
Ignore FFs 

'*R for remote? 

*T for terminal mode? 

In terminal mode? 

Return to user if not A « char 

Onto the screen with it 

Set up the defaults 

make sure irq vectors ok 

Index into alt screen. Table in command 

Get default from alt screen 



; Done if minus 

;Dr if 2 

;Jam irq vector into LC 
; Command , control & flags on stack 
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;Set command reg 



;And the flags 

;A = $01 ("A) if comm mode 



C2CE 


:99 


FB 


BF 


119 




sta 


sen 1 1 ,y 


C2D1 


:G8 






120 




pla 




C2D2 


;99 


FA 


BF 


121 




sta 


scomd ,y 


C2D5 


:68 






122 




pla 




C2D6 


:9D 


B8 


06 


123 




sta 


flags , X 


C2D9! 


:29 


01 




124 




and 


*1 


C2DB; 


:D0 


02 


C2DF 


125 




bne 


def com 


C2DD; 


;A9 


09 




126 




Ida 


*9 


C2DF; 


:9D 


38 


06 


127 


def com 


sta 


eschar , x 


C2E2i 


iGB 






128 




pla 




C2E3i 


;9D 


B8 


04 


129 




sta 


pwdth , X 


e2E6; 


:9E 


B8 


03 


130 




5tz 


sermode , x 


C2E9! 


;60 






131 




rts 




C2EAi 


!03 


07 




132 


def idx 


dfb 


3,7 


C2EC: 






00C1 


133 


5 1 t dmy 


equ 


<5er 5 lo t 


C2EC; 






C22B 


134 


devno 


equ 


*-5l tdmy 


C2EC: 


A0 


B0 




135 




dfb 


$A0,$B0 


C2EE: 






0012 


136 




ds 


$C300-*,$00 


C300: 








34 




incl 


ude c35pace 



; "I for ser lal port 
;Get printer width 

;Make table for hardware access 
;80 column card § $C300 



Appendix A: Fii'mwarc Listing 



07 C3SPACE 



Communications port routine 
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C300 

C3ee 

0300 
C300 
C300 
C300 
C301 
C302 
C303 
C30E 
C306 
C307 
C308 
C30A 
C30B 
C30B 
C30B 
C30B 
C30C 
C30D 
C30D 
C30E 
C30F 
C310 
C311 
C311 
C31 1 
C31 1 
C311 
C314 
C317 
C317 
C317 
C317 
C317 
C317 
C317 
C31A 
C31D 
C320 
C321 
C322 
C323 
C324 
C324 
C326 
C329 
C32C 
C32C 
C32F 
C332 
C335 
C338 
C338 
C338 
C338 
C338 
C338 



48 

DA 

5A 

80 12 

38 

90 

18 

80 1A 

EA 



01 
88 



C317 



C324 



2C 
2F 
32 
35 



4C AF C7 
4C B5 C7 



20 20 CE 

20 BE CD 

20 58 FC 

7A 

FA 

68 

18 

B0 03 C329 
40 F6 FD 
4C IB FD 

4C 41 CF 
4C 35 CF 
4C C2 CE 
4C B1 CE 



2 
3 
4 
5 
6 
7 
8 
9 
10 
1 1 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 



•»»•###«#»###»###•#«##»#***»#»»####«## 



* THIS IS THE $C3XX ROM SPACE: 



««««««*««««««*««««« 



e»####*t####*######«* 



C3ENTRY 



C3KEYIN 



C3C0UT1 



PHA 
PHX 
PHY 
BRA 
SEC 
DFB 
CLC 
BRA 
NOP 



BASICINIT 



$90 



BASICENT 



; save regs 



and inlt video firmware 
Pascal 1.1 ID byte 
BCC OPCODE (NEVER TAKEN) 
Pascal 1.1 ID byte 
=>go print/read char 



DFB 


$01 


DFB 


$88 


DFB 


>JPINIT 


DFB 


>JPREAD 


DFB 


>JPWRITE 


DFB 


>JPSTAT 



PASCAL 1.1 FIRMWARE PROTOCOL TABLE: 

;GENERIC SIGNATURE BYTE 
;DEVICE SIGNATURE BYTE 

PASCAL INIT 
PASCAL READ 
PASCAL WRITE 
PASCAL STATUS 

« 

• 128K SUPPORT ROUTINE ENTRIES: 

JMP SWAUX ;MEMORY MOVE ACROSS BANKS 

JMP SWXFER ;TRANSFER ACROSS BANKS 

* BASIC I/O ENTRY POINT: 



BASICINIT JSR HOOKUP 
JSR SET80 
JSR HOME 
PLY 
PLX 
PLA 
CLC 

« 

BASICENT BCS BINPUT 
BPRINT JMP COUTZ 
BINPUT JMP KEYIN 

» 

JPINIT JMP PINIT 

JPREAD JMP PASREAD 

JPWRITE JMP PWRITE 

JPSTAT JMP PSTATUS 



;CDPYROM If needed, sethooks 
;setup 80 columns 
; c lear screen 

jrestore X 

; restore char 

ioutput a character 

;=>carry me to Input 
jprint a character 
; get a keystroke 

; pascal inlt 

jpascal read 

i pascal wr 1 te 

^pascal status call 



COPYROM is called when the video firmware is 
initialized. If the language card is switched 
in for reading, it copies the F8 ROM to the 
language card and restores the state of the 
language card. 
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rou t i ne 
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C338: 








60 


* 












C338:A9 


06 






61 


CDPYROM 


LDA 


#G0aDF8 


;get the ID byte 




C33fl: 








62 


# 










C33A: 








63 


* 


Compare 


ID by 


tes to whatever 


is readable. If it 




C33A: 








64 


* 


matches 


, all 


is ok . If not. 


need to copy. 




C33A: 








65 


* 












C33A:CD 


B3 


FB 




66 






CMP 


F8VERSI0N 


;does it match? 




C33D:F0 


3C 




C37B 


67 






BEQ 


ROMOK 






C33F:20 


60 


C3 




68 






JSR 


SETROM 


;read ROM, write RAM, save 


state 


C342!A9 


F8 






69 






LDA 


*$F8 


;from F800-FFFF 




C344;8S 


37 






70 






STA 


CSUIH 






0346:64 


36 






71 






STZ 


CSWL 






C348:B2 


36 






72 


C0PYR0M2 


LDA 


(CSWL) 


; get a byte 




C34A:92 


36 






73 






STA 


(CSWL) 


; and save a byte 




C34C:E:6 


36 






74 






INC 


CSWL 






C34E:D0 


F8 




C348 


75 






BNE 


C0PYR0M2 






C350:E6 


37 






76 






IHC 


CSWH 






C352:D0 


F4 




C348 


77 






BNE 


C0PYRDM2 


;fall into RESETLC 




C354: 








78 














C354: 








79 




RESETLC 


reset 


B the language 


card to the state 




C354: 








80 




determined by 


SETROM. It al 


vays leaves the card 




C354: 








81 




write enabled 








C354: 








82 














C354:DA 








83 


RESETLC 


PHX 




;save X 




C3S5:AE 


78 


04 




84 






LDX 


ROMSTATE 


,get the state 




C358:3C 


81 


C0 




85 






BIT 


ROMIN.X 


set bank & ROM/RAM read 




C35B:3C 


81 


C0 




86 






BIT 


RDMIN.X 


set write enable 




C35E:FA 








87 






PLX 




restore X 




C3BF:60 








88 






RTS 








C360: 








89 














C360: 








90 




SETROM 


swi tch 


ss in the ROM for reading, the RAM 




C360: 








91 




for wri 


t ing , 


and it saves the state of the 




C360: 








92 




languag 


e card 


I t does not 


save the write 




C360: 








93 




protect 


status of the card. 






C360: 








94 














C360:DA 








95 


SETROM 


PHX 




save X 




C361 .■A2 


00 






96 






LDX 


#0 


assume write enable , bank2 , 


ROMRD 


C363:2C 


11 


C0 




97 






BIT 


RDLCBNK2 


is bank 2 switched in? 




C366:30 


02 




:36A 


98 






BMI 


N0T1 


= >yes 




C368:A2 


08 






99 






LDX 


*$8 


indicate bank 1 




C36A:2C 


12 


C0 




100 


NQTI 


BIT 


RDLCRAM 


is LC RAM readable? 




C36D: 10 


02 




:371 


101 






BPL 


NOREAD 


= >no 




C36F:E8 








102 






INX 




indicate RAM read 




C370:E8 








103 






INX 








C371:2C 


81 


C0 




104 


NDREAD 


BIT 


$C081 


ROM read 




C374:2C 


81 


C0 




105 






BIT 


$C081 


RAM write 




C377:8E 


78 


04 




106 






STX 


ROMSTATE 


save state 




C37A:FA 








107 






PLX 




restore X 




C37B!60 








108 


ROMDK 


RTS 








C37C: 








109 


« 












C37C: 








110 


« 


GETALT 


reads a byte from aux 


memory screenholes. 




C37C: 








11 1 


» 


Y is th 


2 index to the byte (.i 


-7) indexed off of 




C37C: 








112 


# 


address 


$478. 








C37C: 








113 


« 












C37C:AD 


13 


C0 




114 


GETALT 


LDA 


RDRAMRD 


save state of aux memory 




C37F:0A 








115 






ASL 


A 






C380:fiD 


18 


C0 




116 






LDA 


RD80COL 


and of the 80STORE switch 




C383:08 








117 






PHP 









70 
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C384: 
C387: 
C38A: 
C38D: 
C38E: 
C39B: 
C393: 
C395: 
C398; 
C399: 
C399: 
C39B: 
C39D: 
C39F: 
C3A1 : 
C3A3: 
C3A5: 
C3A6: 
C3A6: 
C3A6: 
C3A6: 
C3A6: 
C3A6: 
C3A6: 
C3A6: 
C3A7; 
C3A9: 
C3AC: 
C3AD: 
C3B0: 
C3B3: 
C3B3: 
C3B3: 
C3B3: 
C3B3: 
C3B3: 
C3B3: 
C3B3: 
C3B3: 
C3B3: 
C3B3: 
C3B3: 
C3B3: 
C3B3: 
C3B3: 
C3B3: 
C3B3: 
C3B6: 
C3B8: 
C3B8: 
C3BB: 
C3BD: 
C3BF: 
C3C1 : 
C3C2: 
C3C4: 
C3Ce: 
C3C7: 



8D 00 
8D 03 
B9 78 
28 

B0 03 
8D 02 
10 03 
8D 01 
60 

09 80 
C9 FB 
B0 06 
C9 El 
90 02 
29 DF 
60 



C0 
C0 
04 



C393 



C0 



C398 



C0 



C3A5 
C3A5 



48 

A9 08 
1C FB 
68 

20 ED 
4C 44 



04 



FD 
FD 



20 9D 
80 09 

20 9D 
24 32 
30 02 

29 7F 
5A 

09 00 

30 15 
48 

AD FB 



CC 



C3C1 



CC 



C3C1 



C3DB 



04 



118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 



GETALT1 



GETALT2 



STA 
STA 
LDA 
PLP 
BCS 
STA 
BPL 
STA 
RTS 



UPSHIFT0 ORA 
UPSHIFT CMP 
BCS 
CMP 
BCC 
AND 
X. UPSHIFT RTS 



CLR80COL 
RDCARDRAM 
$478, Y 

GETALT1 
RDMAINRAM 
GETALT2 
SET80CaL 



#$80 

#$FB 

/.UPSHIFT 

^lEI 

/.UPSHIFT 

*$DF 



;no 80STORE to get page 1 
;pop In the other half of RAM 
;read the desired byte 
;and restore memory 



;5et high bit for execs 



GETCOUT performs COUT for GETLN . It disables the 
echoing of control characters by clearing the 
M.CTL mode bit, prints the char, then restores 
M.CTL. NOESC is used by the RDKEY routine to 
disable escape sequences. 



GETCOUT 



PHA 
LDA 
TRB 
PLA 
JSR 
JMP 



*M.CTL 
VMODE 



CDUT 
NOESCAPE 



; save char to print 
^disable control chars 
; by clearing M.CTL 
^restore character 
; and print it 
;enable control chars 



STORCH determines loads the current cursor position, 
inverts the character, and displays it 

STORCHAR inverts the character and displays it at the 
position stored in Y 

STORY determines the current cursor position, and 
displays the character without inverting it 

STORE displays the char at the position in Y 

If mouse characters are enabled (VMODE bit 0=0) 
then mouse characters ($40-$5F) are displayed when 
the alternate character set is switched in. Normally 
values $40-$5F are shifted to $0-$1F before display. 



• Calls to GETCUR trash Y 



STORY 



STORCH 



STORE 



JSR 
BRA 

JSR 
BIT 
BMI 
AND 
PHY 
ORA 
BMI 
PHA 
LDA 



GETCUR 
STORE 

GETCUR 
INVFLG 
STORE 
#$7F 

#0 
ST0RE1 

VMODE 



;get newest cursor into Y 



first, get cursor position 

normal or inverse? 

= >normal , store it 

i nver se i t 

save real Y 

does char have high bit set? 

=>yes, don't do mouse check 

save char 

i s mouse bit se t ? 
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Communicat 1 


0T15 por 


t routine 


C3CA 


:6A 








176 




ROR 


A 


C3CB 


:e8 








177 




PLA 




C3CC 


:S0 


0D 




C3DB 


178 




BCC 


ST0RE1 


C3CE 


!2C 


IE 


C£ 




179 




BIT 


ALTCHARSET 


C3D1 


: 10 


08 




C3DB 


180 




BPL 


STORE 1 


C3D3 


:49 


40 






181 




EDR 


#$40 


C3D5 


:89 


60 






182 




BIT 


#$60 


C3D7 


:F0 


02 




C3DB 


183 




BEQ 


STDRE1 


C3D9 


!49 


40 






184 




EOR 


#$40 


C3DB 


2C 


IF 


C0 




185 


STDRE1 


BIT 


RD80VID 


C3DE 


10 


19 




C3F9 


186 




BPL 


STORES 


C3EB 


48 








187 




PHA 




C3E1 


8D 


01 


C0 




188 




STA 


SET80CDL 


C3E4 


98 








189 




TYA 




C3E5 


45 


20 






190 




EOR 


WNDLFT 


C3E7 


4A 








191 




LSR 


A 


C3E8 


B0 


04 




C3EE 


192 




BCS 


ST0RE2 


C3EA 


AD 


S5 


C0 




193 




LDA 


TXTPAGE2 


C3ED 


C8 








194 




INY 




C3EE 


98 








195 


STaRE2 


TYA 




C3EF 


4A 








196 




LSR 


A 


C3F0 


A8 








197 




TAY 




C3F1 


ee 








198 




PLA 




C3F2 


91 


28 






199 


STDRE3 


STA 


CBASD.Y 


C3F4 


2C 


54 


C0 




200 




BIT 


TXTPA0E1 


C3F7! 


7A 








201 


ST0RE4 


PLY 




C3F8: 


60 








202 




RTS 




C3F9: 










203 


« 






C3F9: 


91 


28 






204 


STDRE5 


STA 


(BASD.Y 


C3FB: 


7A 








205 




PLY 




C3FC; 


60 








206 




RTS 




C3FD: 








0003 


207 




DS 


$C400-*,$00 


C400: 










35 
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restore char 

=>no, don't do mouse shift 

no shift if It char set 

=> it is! 

$40-$5F=>0-$1f 



;80 columns? 

; ">no , store char 

; save (shifted) char 

;hit 80 store 

;get proper Y 

C^l if char in main ram 

=>yes, main RAM 

else flip in aux RAM 

do this for odd left, aux bytes 

divide pos'n by 2 



;get Cshifted) char 
;stuff it 

;else restore pagel 
; restore real Y 
; und exit 

;do 40 column store 
; restore Y 
; and exit 



;Equates for the mouse 



Appcaidi 



;isung 



08 MOUSE 


C400: 


C400 




C400 




C400 




C400 




C400 




C400 




C400 




C400 





Mouse firmware 
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2 msb ON 

3 #♦»########*♦##»#«###»»*««»##*#**##»»*#» 

4 • 

5 * Mouse firmware for the Chels 

6 • 

7 * by Rich Williams 

8 * July, 1983 

9 * 

■]0 ###»##«»######»##*»#»##***#«####»#*«##»* 



C400 
C400 
C400 
C400 
C400 



12 »###»#*##«#######»##»»#«###»* 

13 * 

14 * Equates 

15 • 

1g »#########»##»##***»»»«**#«#* 



(«#««»«««« 



t»**#»*#»# 



C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 



0478 
0478 
04F8 
0S78 
0SF8 

047D 
04FD 
057D 
05FD 
067D 
06FD 
077D 
07FD 

047C 
04FC 
057C 
05FC 
067C 
077C 



07FC 



18 

19 mo 

20 ml 

21 ma 

22 ml 

23 ma 

24 * 

25 mi 

26 mi 

27 mi 

28 mi 

29 ma 

30 ma 

3 1 ma 

32 m 

33 » 

34 mo 

35 mo 

36 mo 

37 mo 

38 mo 

39 mo 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 mo 
50 
51 
52 
53 
54 
55 



I npu 

utem 

rl 

xl 

nh 

xh 

Mous 

nxl 

nyl 

nxh 

nyh 

xxl 

xy 1 

xxh 

xyh 

Mous 

ux 1 

uyl 

uxh 

uyh 

uarm 

us ta 

Mous 
D7 = 
D6 = 
D5 = 
D4 = 
D3 = 
D2 = 
D1 = 
D0- 

umod 
D7 
D6 
D3 
D2 
D1 
D0 



t bounds are in scratch area 
P 



equ 
equ 
equ 
equ 
equ 
e bounds 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
les 
equ 
equ 
equ 
equ 
equ 
equ 



e hoi 



$478 
$478 
$4F8 
$578 
$5F8 
in slot 
$47D 
$4FD 
$57D 
$5FD 
$67D 
$6FD 
$77D 
$7FD 
in slot ' 
$47C 
$4FC 
$57C 
$5FC 
$67C 
$77C 



^Temporary storage 



5 screen area 



screen area 

;X position low byte 

;Y position low byte 

;X position high byte 

;Y position high byte 

^Arm interrupts from movement or button 

:Mou5e status 



t 

tat provides the following 

Button pressed 

Status of button on last read 

Moved since last read 

Reserved 

Interrupt from VBL 

Interrupt from button 

Interrupt from movement 

Reserved 
e equ $7FC jMouse mode 

= 1 if user wants control of mouse interrupts 
D4= Unused 

VBL active 

VBL interrupt on button 

VBL interrupt on movement 

Mouse active 
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Mouse firmware 



0020 


56 


movarm 


equ 


$20 


000C 


B7 


vblmode 


equ 


$0C 


0004 


58 


bu tmode 


equ 


$04 


0002 


59 


movmode 


equ 


$02 
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;D2 mask 
;D1 mask 
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C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 
C400 





61 


* Hardware add 


resses 


C015 


62 


mouxlnt 


equ 


$C015 


C017 


63 


mouylnt 


equ 


$0017 


C019 


64 


vblint 


equ 


$C019 


C078 


65 


ioudsbl 


equ 


$C078 


C079 


66 


iouenbl 


equ 


$C079 


C048 


67 


moucl r 


equ 


$C048 


C058 


68 


iou 


equ 


$C0S8 


C058 


69 


moudsbl 


equ 


$C058 


C059 


70 


mouenbl 


equ 


$C059 


C0G3 


71 


moubu t 


equ 


$C063 


C066 


72 


moux 1 


equ 


$C066 


C067 


73 


mouy 1 


equ 


$C067 


C070 


74 
75 


vblclr 

* 


equ 


$C070 




76 


* Other 


addresses 




77 


# 






0200 


78 


inbuf 


equ 


$200 


0214 


79 


bmi 


equ 


Inbuf +20 


0215 


80 


binh 


equ 


lnbuft21 




36 




include mcode 



D7 = X Interrupt 
D7 = y interrupt 
D7 = vbl Interrupt 
Disable iou access 
Enable iou access 
Clear mouse interrupt 
IOU interrupt switches 
Disable mouse interrupts 
Enable mouse interrupts 
D7 = Mouse button 
D7 = XI 
D7 = Y1 
Clear VBL interrupt 



; Input buffer 

; Temp for binary conversion 



iMouse @ $C400 



09 MCDDE 


0400 




C400 




C400 




C400 




C400 




0400 


80 0B 


C402 


A2 03 


C404 


60 


C40S 


38 


C406 


90 


C407 


18 


C408 


4C CF CS 


C40B 


01 


C40C 


20 


C40D 


02 


C40E 


02 


C40F 


02 


C410 


02 


C411 


00 


C412 


3B 


C413 


DC 


C414 


93 


C415 


82 


C416 


69 


C417 


BD 


C418 


6B 


C419 


1A 


C41A 




C41A 





Mouse firmware 



C407 



2 


* * 


« « * * « 


# * 


»###«« 




3 


* 










4 


« 


Entry 


P 


dints 


for mouse firm 


5 


# 










6 


«#»#»##»*##»**#«#««*####«»*«# 


7 


mb 


asxc 




bra 


outent 


8 


pnul 1 




Idx 


#3 


9 








rts 




10 


inent 




sec 




11 








dfb 


$90 


12 


ou 


tent 




clc 




13 








]"'P 


xmbasic 


14 








dfb 


$01 


15 








dfb 


»20 


16 








dfb 


>pnul 1 


17 








dfb 


>pnul 1 


18 








dfb 


>pnul I 


19 








dfb 


>pnul 1 


20 








dfb 


$0 


21 








dfb 


>x5e tmou 


22 








dfb 


>xmt stint 


23 








dfb 


>xmread 


24 








dfb 


>xmclear 


25 








dfb 


>noer ror 


26 








dfb 


>xmc lamp 


27 








dfb 


>xmhome 


28 








dfb 


> ini tmouse 


29 


« 


dfb 


>P 


null 




30 


* 


dfb 


>9 


oxmin 
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iNull for pascal entry 
; Signature bytes 



; Go do basic entry 
iMore signature stuff 



SETMOUSE 

SERVEMOUSE 

READMOUSE 

CLEARMOUSE 

POSMDUSE 

CLAMPMOUSE 

HQMEMOUSE 

INITMDUSE 



■^ppei 



A: Fin- 



09 MCODE 

C41A: 

C41A: 

C41A: 

C41A: 

C41A: 

C41A: 

C41A: 

C41A: 

C41A:9C 7C 07 

C41D:A2 80 

C41F:A0 01 

C421 :9E 7D 04 

C424:9E 7D 05 

C427:A9 FF 

C429:9D 7D 06 

C42C:A9 03 

C42E:9D 7D 07 

C431 :A2 00 

C433:88 

C434: 10 EB 

C436:20 6B C4 

C439:A9 00 



Mouse firmware 



C41A 



C421 
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32 ****»*»«#*#*»»##»##»*«»####« 

33 • 

34 * Initmouse - resets the mouse 

35 * Also clears all of the mouse holes 

36 * note that iou access fires pdlstrb j; makes mouse happy 

38 »»•••»••••«»•»•••«»♦«»»,.»»».«,,,,,#,,,, 

39 initmouse equ 

;Ciear status 



40 


stz 


mous tat 


41 


Idx 


*$80 


42 


Idy 


#1 


43 xrloop stz 


minxl , X 


44 


stz 


minxh ,x 


45 


Ida 


*$FF 


46 


sta 


maxxl , X 


47 


Ida 


#03 


48 


sta 


maxxh , x 


49 


Idx 


#0 


50 


dey 




51 


bpl 


xr loop 


52 


j^f" 


xmhome 


53 


Ida 


#0 



; Mi nimum 
;Maximum 



$0000 
$03FF 



jClear the mouse holes 
;Fall into SETMQU 



C43B: 

C43B: 

C43B: 

C43B: 

C43B: 

C43B: 

C43B:AA 

C43C:20 9A CF 

C43F:8A 

C440:8D 78 04 

C443;4A 

C444:0D 78 04 

C447:C9 10 

C449:B0 IF 

C44B:29 05 

C44D:F0 01 

C44F:58 

C450:69 55 



5g •••♦»«»».««»».«.».,.»,,,,,,,,«,,,,,,,,,, 

56 • 

57 « XSETMQU - Sets the mouse mode to A 

58 * 

59 •••»•»•»♦•»».....,.«,,,,,«»,,,,,,,,,,,„, 

C43B 60 xsetmou equ * 

61 

62 

63 

64 

65 

66 

67 
C46A 68 

69 
C450 70 

71 

72 xsoff 



tax 




] = ■■ 


movei rq 


txa 




sta 


moutemp 


Isr 


A 


ora 


moutemp 


cmp 


*$10 


bcs 


sminval id 


and 


#5 


beq 


xsoff 


cli 




adc 


*$55 



;Make sure interrupt vector is right 
;Only x preserved by moveirq 

;D0 = 1 if mouse active 

;D2 = 1 if vbl active 

;If >=$10 then invalid mode 



;Extract VBL 4 Mouse 
; Turning i t off? 

; I f not , Int s active 
;Make iou byte C=0 



C452 
C452 
C452 
C452 
C452 
C452 
C452 
C4S2 
C452 
C452 
C452 
C452 



74 


# « * # » 


75 






76 




SET 


77 




In 


78 




D7 


79 




D6 


80 




D5 


81 




D4 


82 




D3 


83 




D2 


84 




D1 


85 




D0 



- Sets the IOU interrupt modes to A 
Inputs: A = Bits to change 

Y int on falling edge 

Y int on rising edge 
X int on falling edge 
X int on rising edge 
Enable VBL int 
Disable VBL int 
Enable mouse int 
Disable mouse int 



Appendix A: Firmware ijsling 



09 MCDDE 






Mouse firmware 




C452: 








86 


* 




C452: 








87 


* 




C4B2: 








88 




C452: 






C452 


89 


setiou equ 


« 


C452!08 








90 


php 




0453:78 








91 


sei 




C4S4:8E 


FC 


07 




92 


stx 


moumode 


C4S7;8D 


79 


C0 




93 


sta 


iouenbl 


C4SA:A2 


08 






94 


Idx 


#8 


C4SC:CA 








95 


siloop dex 




C4SD:0A 








96 


asl 


A 


C45E:90 


03 




C463 


97 


boc 


sinooh 


C46B:9D 


58 


C0 




98 


sta 


iou , X 


C463:D0 


F7 




C45C 


99 


slnoch bne 


5 i loop 


C4e5:8D 


78 


C0 




100 


sta 


ioudsbl 


C468:28 








101 


pip 




C469: 18 








102 


noerror clc 




C4eA:60 








103 


ami nval id r t s 
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»*««««#*«««» 



;Don't allow int5 while iou enabled 
jEnable iou access 



;Get a bit to chec k 
; No change if C=0 

;Set it 



;Any bits left in A? 
jTurn off iou access 



C46B' 105 *»***••***•*»***»*************»******»** 

C46b! 106 • 

C46B: 107 * XMHOME- Clears mouse position * status 

C46B: 108 • 

Q4cp. 109 ###«*#*»###»*#»##*#*#*###**##*»*****«*** 

C46B: C46B 110 xmhome equ * 

C46B:A2 80 111 Idx *$80 ;Point mouse to upper left 

C46D:80 02 C471 112 bra xmh2 

C46F:A2 00 113 xmhloop Idx #0 

C471:BD 7D 04 114 xmh2 Ida minxl.x 

C474:9D 7C 04 115 sta mouxl.x 

C477:BD 7D 05 116 Ida minxh.x 

C47A:9D 7C 05 117 sta mouxh.x 

C47D:CA 118 dex 

C47E:10 EF C46F 119 bpl xmhloop 

C480:80 0C C48E 120 bra xmodone 



C482' 122 **************************************** 

C482 • 1 23 * 

C482: 124 * XMCLEAR - Sets the mouse to 0,0 

C482: 125 * 

C482' 126 **************************************** 

C482: C482 127 xmclear equ * 

C482:9C 7C 04 128 stz mouxl 

C485:9C 7C 05 129 stz mouxh 

C488:9C FC 04 130 stz mouyl 

C48B:9C FC 05 131 stz mouyh 

C48E:9C 7C 06 132 xmodone stz mouarm 

C491 : 18 133 clc 

0492:60 134 rts 



irmwa.re !.j 



09 MCODE 

C493: 

C493: 

C493: 

C493: 

C493: 

C493: 

C493:A9 

C49S: 1C 

C498:2D 

C49B: 1C 

C49E:2C 

C4A1 :30 

C4A3:2C 

C4A6:30 

C4A8:09 

C4AA:2C 

C4AD: 10 

C4AF:09 

C4B1 :8D 

C4B4: 18 

C4B5:60 

C4B6: 

C4BG:aD 

C4B9:29 

C4BB:80 
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C493 
20 

7C 07 
7C 06 
7C 06 
FC 07 
13 C4B6 
63 C0 
02 C4AA 
80 

7C 07 
02 C4B1 
40 
7C 07 



C4B6 
7C 07 
E0 
F4 C4B1 



XMREAD - Updates the screen holes 



xmread 



>•»»»»««.».,.«»«,,,,»,,,,,,„ 



136 »•••»»**•••••••»•»»«•••••«•».»»«»««..,,» 

137 * 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 

151 xrbut 
152 
153 

154 xrbut2 
155 



156 
157 
158 
159 
160 



xmrd2 



equ 
Ida 
trb 
and 
trb 
bit 
bmi 
bit 
bmi 
ora 
bit 
bpl 
ora 
sta 
clc 
rts 
equ 
ora 
and 
bra 



*movarm 

mous tat 

mouarm 

mouarn 

moumode 

xmrd2 

moubu t 

xrbut 

'$80 

mous tat 

xrbut2 

*$40 

mous tat 



mous tat 

*»E0 

xrbut2 



;Has mouse moved? 

iClear moved bit In stat 

;Clear arm bit 

;If D7 = 1 leave buttons alone 

;Button pressed? 



;Pres5ed last time? 



iLeave button bits 
; But ton bits 



C4BD: 

C4BD: 

C4BD: 

C4BD: 

C4BD: 

C4BD: 

C4BD: 

C4BD: 

C4BD:6A 

C4BE:6A 
C4BF:29 
C4C1 :AA 
C4C2:AD 
C4C5:9D 
C4C8:AD 
C4CB:9D 
C4CE:AD 
C4D1 :9D 
C4D4:AD 
C4D7:9D 
C4DA: 18 
C4DB:60 



C4BD 



04 
04 
05 



80 

78 
7D 
78 
7D 05 
F8 04 
7D 06 
F8 05 
7D 07 



162 
163 
164 
165 
166 
167 
168 



« 

• XMCLAMP - store new bounds 

• Inputs A = 1 for Y, for X axis 

• mini, minh, maxl, maxh = new bounds 



»»•»♦«♦»»«.»»,,»,,,,, 



»*«##«*#♦###♦«#* 



169 xmclamp 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 



equ 
ror 
ror 
and 
tax 
Ida 
sta 
Ida 
sta 
Ida 
sta 
Ida 
sta 
clc 
rts 



A 
A 
'$80 

mini 
minxl , X 
minh 
minxh , x 
maxl 
maxxl , X 
maxh 
maxxh , x 



1 1 -> 80 



;No 



C4DC 
C4DC 
C4DC 
C4DC 
C4DC 



C4DC 



185 ******•♦»•*»•»•»»»•»••••«».»«.»»««....,, 

186 * XMTSTINT - Checks mouse status bits 

187 * Used for user mouse interrupt 

188 *****•••••••*•••»•»•»»•»••»«»»««»«.»««,, 

189 xmtstint equ • 
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09 MCODE 






Mouse 


firmware 




C4DC!48 






190 




pha 




C4DD: 18 






191 




clc 




C4DE:fl9 


0E 




192 




Ida 


#*0E 


C4E0:2D 


7C 


07 


193 




and 


mous tat 


C4E3:DB 


01 


C4E6 


194 




bne 


nostat2 


C4E5:38 






195 




sec 




C4Ee:68 






196 TiostatS 


pla 




C4E7:G0 






197 




rts 




C4E8: 




0013 


198 




ds 


$C4FB-* 


C4FB:De 






199 




dfb 


$D6 


C4FC: 




0004 


200 




ds 


$C500-« 


C500: 






37 




incl 


ude misc 


C500: 




008E 


1 




ds 


$C58E-» 
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; Signature byte 
^Miscellaneous junk 
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10 MISC 




CS8E 






C58E 






C58E 






C58E 






C58E 






C58E 


A2 


03 


CB90 


A0 


00 


C592 


86 


3C 


CS94 


8A 




C595 


0A 




C596 


24 


3C 


C598 


F0 


10 


C59A 


05 


3C 


C59C 


49 


FF 


C59E 


29 


7E 


C5A0 


B0 


08 


CSA2 


4A 




C5A3 


D0 


FB 


C5AS 


98 




C5A6 


9D 


56 


C5A9 


C8 




C5AA 


E8 




CBAB 


ie 


E5 


C5AD 


A9 


08 


CSAF 


85 


27 


CSB1 


A0 


7F 


C5B3 


60 
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C5AA 



C5AA 



C5A0 



03 



C592 



»««««*«#«*««»«««**«««««***««»««**««**« 



5 • MAKTBL - Makes a denl bl i z i ng table for the disk II boot 



7 *«#««««*«#«««««««*«««««« 



*«##«*##»####* 



8 


MAKTBL 


LDX 


*$03 


9 




LDY 


*0 


10 


TBLLOOP 


STX 


BOQTTMP 


11 




TXA 




12 




ASL 


A 


13 




BIT 


BODTTMP 


14 




BEQ 


NOPATRN 


15 




QRA 


BOOTTMP 


ie 




EOR 


*$FF 


17 




AND 


#$7E 


18 


TBLL00P2 


BCS 


NOPATRN 


19 




LSR 


A 


20 




BNE 


TBLLaDP2 


21 




TYA 




22 




STA 


DNIBL.X 


23 




IMY 




24 


NQPATRN 


INX 




25 




BPL 


TBLLOOP 


26 




LDA 


*$08 


27 




STA 


$27 


28 




LDY 


#$7F 


29 




RTS 





C5B4 
C5B4 
C5B4 
CSB4 
C5B4 
C5B4 
C5B4 
CSB4 
C5B7 
C5B8 



31 
32 



j#»#»»«###»####»#»#####«##t«###«###»»##j( 



33 * GETUP - Get char from Input buffer 

34 * Iny and upshift it 

35 • 

C5B4 37 getup equ * 
B9 00 02 38 Ida in,y ;Get character 

C8 39 iny 

4C 99 C3 40 Jmp upshift0 



C5BB 
C5BB 
C5BB 
C5BB 
C5BB 
C5BB 



CI F0 F0 EC 



42 *»•••#*#*#»•»»*#*»»*##*#«*#*##»«»#####«» 

43 * 

44 * This is who we are 9 letters 

45 * 

47 apple2c asc 'Apple lie' 



C5C4 
C5C4 
C5C4 
C5C4 
C5C4 
C5C4 



C5C4 



49 *»•••»•»**•«•»*#»#•»##«#»###*#*#*#####*# 

50 * 

51 * SHDWINST - Disassemble an instruction and adjust the PC 

52 * 

53 •••*•*<<>••<>••*• •••••«•«•••«<)«•« ««««•«(•« 

54 showinst equ • 
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10 MISC 

C5C4:20 D0 F8 

C5C7:2a S3 F9 

C5CA:85 3A 

C5CC:84 3B 
C5CE:60 



Mouse firmware 

5B 
56 
57 
58 
59 
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i=|" 


instdsp 






jsf- 


pcadj 






sta 


pel 






sty 


pch 






rts 









C5CF 






C5CF 






C5CF 






CSCF 






CSCF 






C5CF 






C5CF 


5A 




C5D0 


B0 


1C 


C5D2 


A0 


C4 


C5D4 


C4 


39 


C5D6 


D0 


04 


C5D8 


A4 


38 


C5DA 


F0 


12 


CSDC 


DA 




CSDD 


48 




C5DE 


29 


7F 


C5E0 


C9 


02 


C5E2 


B0 


06 


C5E4 


20 


3B C4 


C5E7 


20 


6B C4 


C5EA 


68 




C5EB 


FA 




C5EC 


7A 




C5ED 


60 




C5EE 


4C 


9D C7 


C5F1 






CSF5 






C5F5 







61 
62 



«««««**««*«««« 



(«*«««#«««««««« 



(#»#** 



C5CF 



C5EE 



C5DC 



C5EE 



C5EA 



0004 



000B 



63 


* XMBASIC 


- Basic call to 


64 


» 






65 




66 


xmbas Ic 


equ 


« 


67 




p^iy 




68 




bcs 


gobasi c in 


69 




Idy 


#<mba5ic 


70 




cpy 


k swh 


71 




bne 


xmbou t 


72 




Idy 


kswl 


73 




beq 


gobasicin 


74 


xmbou t 


phx 




75 




pha 




76 




and 


#*7F 


77 




cmp 


#2 


78 




bge 


mbbad 


79 




js'" 


xse tmou 


80 




jsr 


xmhome 


81 


mbbad 


pla 




82 




plx 




83 




ply 




84 




rts 




85 


gobas i c in 


jmp 


swbas ic i n 


86 




ds 


»C5FS-*,0 


38 




incl 


ude boot 


1 




ds 


»C600-*,0 



the mouse 



»«»#»#«»#*#»* 



; Input? 

; Input from $C400? 



; Save X too 
;Ne don't care about high bit 
; Only , 1 valid 



Go to input routine 
More disk stuff 
Disk II boot @$C600 
Disk II in slot 6 
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11 BOOT 



Disk II boot code 
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ceee 

C600 
C600 

ceee 
ceee 
ceee 

C602 

CGB4 

C606 

C608 

C60A 

C60B 

C60D 

Ce0F 

C610 

CG13 

C616 

CG17 

C61A 

C61D 

C61F 

C622 

C623 

C62S 

C626 

C628 

C629 

C62C: 

C62E: 

CG31 : 

C632: 

CG34: 

CG3G: 

CG38: 

CG3A: 

C63D: 

CG3F: 

C640: 

CG41 : 

C642: 

CG44: 

C64G: 

CG48: 

C64B: 

Ce4D: 

CG4F: 

cesi : 

CG54: 
C656: 
Ce57: 
C658: 
CG5A: 
CGBC: 
CG5E: 
C6SE: 
CG5E: 
C65E: 



»»#»»##»#«» 



5 » 

6 * Disk II boot stuff 

7 • jumps to slot 5 if boot fails 

8 • 



:A2 20 

:A0 00 

:G4 03 

:e4 3C 

:A9 60 

:AA 

:8G 2B 

:85 4F 

:BA 

:BD 8E C0 

:BD 8C C0 

:7A 

:B9 EA C0 

:BD 89 C0 

:A0 50 

:BD 80 C0 

:98 

:29 03 

:0A 

:05 2B 

:AA 

:BD 81 C0 

:A9 56 

:20 A8 FC 

:88 

: 10 EB 

:8S 26 

:85 3D 

:85 41 

:20 8E C5 

:64 03 

: 18 

:08 

:28 

:A6 2B 

:C6 03 

:D0 0E 

:BD 88 C0 

AS 01 

C9 C6 

D0 A4 

4C 00 C5 



08 
88 

D0 04 
F0 ES 
80 DF 



C61F 



C656 



C5F5 



0002 



C6SE 
C641 
C63D 



10 

11 

12 

13 

14 

15 

16 DRV2ENT 

17 

18 

19 

20 

21 

22 

23 

24 

25 SEEKZERD 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 EXTENT1 

41 RDADR 
42 

43 RETRY1 

44 RDDHDR 
45 

46 

47 FUGIT 

48 

49 

50 

51 

52 

53 RDHD0 

54 RETRY 
55 

56 

57 EXTENT 

58 * • * • • 

59 * The fol 

60 • present 

61 * cause v 



LDX 

LDY 

STZ 

STZ 

LDA 

TAX 

STX 

STA 

PHY 

LDA 

LDA 

PLY 

LDA 

LDA 

LDY 

LDA 

TYA 

AND 

ASL 

ORA 

TAX 

LDA 

LDA 

JSR 

DEY 

BPL 

STA 

STA 

STA 

JSR 

STZ 

CLC 

PHP 

PLP 

LDX 

DEC 

BNE 

LDA 

LDA 

CMP 

BNE 

JMP 

ds 

PHP 

DEY 

BNE 

BEQ 

BRA 

* * * 

lowing 

f orm . 

olcanos 



#$20 

*$00 

$03 

$3C 

*$60 

SLOTZ 
BOOTDEV 

$C08E,X 
$C08C,X 

$C0EA,Y 
$C089,X 
*$50 
$C080,X 

#$03 

A 

SLOTZ 

$C081 ,X 

*$56 

WAIT 

SEEKZERO 

$26 

$3D 

$41 

MAKTBL 

$03 



SLOTZ 

$03 

RDHD0 

$C088,X 

LOCI 

#$C6 

BDOTFAIL 

$C500 

$C65G-»,E 



RDHD1 

RETRY1 

EXTENT1 



;Y=1 IF DRIVE 2 BOOT, ELSE Y= 



;SELECT DRIVE 1 OR 2 



RESTORE X TO $60 

UPDATE RETRY COUNT 

BRANCH IF NOT OUT OF RETRIES 

SHUT OFF DISK AND QUIT! 

Auto boot from slot6? 



jMaybe slot 5 will talk to us 
;Keep alignment 



;Blow5 up if this is moved too 



code is sacred In it's 
To change it would 
to errupt, the ground 



82 



AppCiK'iX 



rimvare Lisijiis; 



1 1 BOOT 




Dis 


k II boot 


code 




C65E: 




62 


« to sha 


ke , ar 


id ProDOS not 


CG5E: 




63 


« « « « 


# » # 


»#«##* 


C65E:BD 8C 


00 


64 


RDHD1 


LDA 


$0080, X 


CSei : 10 FB 


06SE 


65 




BPL 


RDHD1 


0663:49 D5 




66 


ISMRK1 


EOR 


*$D5 


Ce65:D0 F0 


0657 


67 




BNE 


RETRY 


0667 :BD 8C 


00 


68 


RDHD2 


LDA 


$0080, X 


C66A: 10 FB 


0667 


69 




BPL 


RDHD2 


C66C;C9 AA 




70 




CMP 


*$AA 


C66E:D0 F3 


0663 


71 




BNE 


ISMRK1 


C670:EA 




72 




NOP 




C671:BD 8C 


00 


73 


RDHD3 


LDA 


$0080, X 


C674: 10 FB 


0671 


74 




BPL 


RDHD3 


0676 :C9 96 




75 




CMP 


*$96 


C678:F0 09 


0683 


76 




BEQ 


RDSEOT 


C67A:28 




77 




PLP 




C67B;90 C2 


C63F 


78 




BOO 


RDADR 


C67D:49 AD 




79 




EOR 


#$AD 


C67F:F0 25 


C6A6 


80 




BEQ 


RDATA 


C681:D0 BC 


C63F 


81 




BNE 


RDADR 


C683:A0 03 




82 


RDSEOT 


LDY 


*$03 


C685:85 40 




83 


RDSE01 


STA 


$40 


C687:BD 8C 


00 


84 


RDSE02 


LDA 


$0080, X 


C68A: 10 FB 


0687 


85 




BPL 


RDSE02 


C68C:2A 




86 




RDL 


A 


C68D:85 3C 




87 




STA 


BDOTTMP 


C68F:BD 8C 


00 


88 


RDSE03 


LDA 


$0080, X 


C692:10 FB 


C68F 


89 




BPL 


RDSE03 


C694:2S 3C 




90 




AND 


BDOTTMP 


0696:88 




91 




DEY 




O697:D0 EO 


0685 


92 




BNE 


RDSEC1 


0699:28 




93 




PLP 




069A:05 3D 




94 




OMP 


$3D 


C69C:D0 A1 


C63F 


95 




BNE 


RDADR 


069E:A5 40 




96 




LDA 


$40 


O6A0:C5 41 




97 




OMP 


$41 


C6A2:D0 9B 


063F 


98 


BADRD1 


BNE 


RDADR 


O6A4:B0 90 


0642 


99 




BOS 


RDDHDR 


C6A6;A0 56 




100 


RDATA 


LDY 


'$56 


06A8:84 30 




101 


RDAT0 


STY 


BOOTTMP 


06AA:B0 80 


00 


102 


RDAT1 


LDY 


$0080, X 


C6AD; 10 FB 


C6AA 


103 




BPL 


RDAT1 


06AF:59 D6 


02 


104 




EOR 


DNIBL-$80,Y 


C6B2:A4 30 




105 




LDY 


BOOTTMP 


06B4:88 




106 




DEY 




06BS:99 00 


03 


107 




STA 


NBUF1 ,Y 


C6B8:D0 EE 


06A8 


108 




BNE 


RDAT0 


C6BA:84 30 




109 


RDAT2 


STY 


BOOTTMP 


06B0:BC 80 


00 


110 


RDAT3 


LDY 


$0080, X 


C6BF: 10 FB 


06B0 


111 




BPL 


RDAT3 


0601:59 D6 


02 


112 




EOR 


DNIBL-$80,Y 


06C4:A4 30 




113 




LDY 


BOOTTMP 


0606:91 26 




114 




STA 


($26), Y 


0608:08 




115 




INY 




O6O9:D0 EF 


06BA 


116 




BNE 


RDAT2 


060B:B0 80 


00 


1 17 


RDAT4 


LDY 


$0080, X 


06CE; 10 FB 


C6CB 


1 18 




BPL 


RDAT4 


O6D0:59 D6 


02 


119 




EOR 


DNIBL-$80,Y 
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CD 
00 
56 

FB 
26 
00 



C6D3:D0 

C6D5:A0 

C6D7:A2 

C6D9:CA 

C6DA:30 

C6DC:B1 

C6DE;5E 

C6E1 :2A 

C6E2:5E 00 03 

C6ES:2A 

C6E6:91 26 

C6E8:C8 

C6E9:D0 EE 

C6EB: 

C6EB: 

C6EB: 

C6EB: 

C6EB: 

C6EB:E6 27 

C6ED:E6 3D 

C6EF:A5 3D 

C6F1 :CD 00 08 

CeF't:A6 4F 

C6F6:90 

C6F8!4C 

C6FB: 

C700! 



C6A2 



C6D7 



C6D9 



DB 
01 



C6D3 



08 



000S 



120 BADREAD 
121 

122 DENIBL 

123 DENIB1 
124 

125 
126 
127 
128 
129 
130 
131 
132 
133 • • • • 

134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
39 



BNE 
LDY 
LDX 
DEX 
BMI 
LDA 
LSR 
ROL 
LSR 
ROL 
STA 
INY 
BNE 



BADRD1 

*«00 

#$56 

DENIBL 
($26), Y 
NBUF1 ,X 
A 

NBUF1 ,X 
A 
($25), Y 

DENIB1 



Code beyond this point is not 
sacred... It may be perverted 
in any manner by any pervert. 



INC 


$27 


INC 


$3D 


LDA 


$3D 


CMP 


$0800 


LDX 


BOOTDEV 


BCC 


BADREAD 


MP 


$0801 


DS 


$C700-*,0 


incl 


ude swi t cher 



;Last byte must be 
;Bank switcher @ $C780 
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C700: 008B 2 ds $C780-*,0 

C780: 3 **************************************** 

C780: 4 • 

C780: S * Code for switching between banks 

C780: 6 • This code appears in both banks of the rom 

C780; 7 • 

C780: 8 •••***••••••»»»•»•»«••»•••»•••«««••«#•»« 

C780:8D 28 C0 9 swrti sta rombank ;RTI to the other bank 

C783:40 10 rti 

C784:8D 28 C0 11 swrts sta rombank ; RTS to the other bank 

C787:60 12 swrtsop rts 

C788:8D 28 C0 13 swreset sta rombank jReset routine 

C78B:4C 62 FA 14 jmp reset 

C78E:8D 28 C0 IB sta rombank ; Interrupt routine 

C791:2C 87 C7 16 bit swrtsop ;Set V = 1 for other bank 

C794:4C 04 C8 17 jmp irqent 

C797:8D 28 C0 18 swpcnv sta rombank ;Protocol converter 

C79A:4C F1 C7 19 jmp 5W5thk3 ;Jump to sethooks from other side 

C79D:8D 28 C0 20 swbasicin sta rombank jMouse BASIC routines 

C7A0:4C F6 C7 21 Jmp swzzqtS ;Jump to zzquit from other side 

C7A3:8D 28 C0 22 swsttm sta rombank ;Set terminal mode 

C7A6:4C F1 C7 23 jmp swsttmS 

C7A9;8D 28 C0 24 swcmd sta rombank ;Serial port command processor 

C7AC:4C 06 C8 2B jmp 5wcmd3 

C7AF:8D 28 C0 26 swaux sta rombank ;Moveaux 

C7B2:4C 4E C3 27 jmp moveaux 

C7BB:8D 28 C0 28 swxfer sta rombank 

C7B8:4C 97 C3 29 jmp xfer 

C7BB:8D 28 00 30 swmlnt sta rombank ;Mou5e interrupt handler 

C7BE:4C 00 C1 31 jmp mouselnt 

C7C1!8D 28 C0 32 banger sta rombank 

C7C4:4C A9 D4 33 jmp diags 

07C7:8D 28 C0 34 swatalk sta rombank ; Jump to appletalk 

:7CA:4C 80 CB 3B jmp atalk 

C7CD:8D 28 C0 36 swserS sta rombank ; Jump to seroutS 

C7D0:4C 4F C2 37 jmp seroutS 

C7D3:8D 28 C0 38 swgetst sta rombank ; Jump to qetstat 

C7D6:4C AC C2 39 jmp getstat 

C7D9:8D 28 00 40 swread sta rombank ; Jump to xrdser 

C7D0;4C 03 02 41 jmp xrdser 

07DF:8D 28 C0 42 swgetb sta rombank ; Jump to qetbuf 

C7E2:40 F7 02 43 jmp getbuf 

07EB:8D 28 00 44 swzznm sta rombank 

C7E8:4C E0 D4 45 jmp zznm 

07EB:8D 28 00 46 swxfgo sta rombank ; Jump to users xfer dest 

C7EE:60 ED 03 47 jmp ($3ED) 

C7F1;20 23 OE 48 swsthkS jsr sethooks 

C7F4:80 8E C784 49 bra swrts 

C7F6:20 4D OE B0 swzzqtS jsr zzquit 

C7F9:80 89 0784 51 bra swrts 

07FB: 0004 B2 ds $O7FF-*,0 

C7FF:00 53 dfb ;Appletalk version number 

C800: 40 include irqbuf interrupt stuff @$O800 



Aj)pen(iix 
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C800 
C800 
C800 
0800 
C800 
C800 
C800 
C800 
C800 
C800 
C800 
C800 
C800 
C800 
C800 
C800 
C800 
C800 
C800 
C800 
C800 
C800 
C800 
C803 
C803 
C804 

C804 
C805 
C806 
C807 
C808 
C809 
C80A 
C80B 
C80C 
C80F 
C812 
C813 
C815 
C817 
C81A 
C81D 
C81F 
C821 
C824 
C826 
C828 
C82A 
C82D 
C82F 
C832 
C834 
C837 
C839 
C83C 
C83E 
C840 
C841 



4C 9E C1 
B8 



:48 

:DA 

:BA 

:68 

:68 

:68 

!9A 

:BA 

:AE 66 C0 

:AC 67 C0 

:D8 

:29 10 

:C9 10 

:AD 18 C0 

:2D 1C C0 

:29 80 

:F0 05 

:8D 54 

:A9 40 

:50 02 



C803 
C804 



C826 



C0 



C82A 



09 01 
2C 13 

10 05 
8D 02 C0 

09 20 

2C 14 C0 

10 05 

8D 04 C0 

09 10 

B0 08 

48 

20 BB C7 



C834 



C83E 



C848 



3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 

26 N 
27 
28 I 



*************************************** 

NEWIRQ - The main (only) IRQ handling routines 
IRQENT - Entry point from alternate rem bank 



This routine saves the memory state of the machine, 
checks for an internal interrupt, and then calls the user 
interrupt handler at $3FE. 
The memory state is encoded as follows: 

D7 = 1 if Aiernate zero page / stack 

D6 = 1 i f 80 store and page 2 

D5 = 1 i f Read aux 

D4 = 1 if Write Aux 

D3 = 1 if L.C. enabled 

D2 = 1 if L.C. and $D000 bank 1 

D1 - 1 if L.C. and $D000 bank 2 

D0 = 1 if Alternate rom bank 

New changes in the interrupt handler are marked with a + 



*##«##*##*#####*#*»##»#* 



ENIRQ 
RQENT 



29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 IRQ2 

49 

50 IRQ21 

51 

52 

53 

54 IRQ3 

55 

56 

57 

58 IRQ4 

59 

60 



EQU 
CLV 
EQU 

PHA 
PHX 
TSX 
PLA 
PLA 
PLA 
TXS 
PHY 
LDX 
LDY 
CLD 
AND 
CMP 
LDA 
AND 
AND 
BEQ 
STA 
LDA 
BVC 
DRA 
BIT 
BPL 
STA 
ORA 
BIT 
BPL 
STA 
ORA 
BCS 
PHA 
JSR 



p 1 ini t 



M0UX1 
M0UY1 

#$10 

*$10 

RD80CQL 

RDPAGE2 

#$80 

IRQ2 

TXTPAGE1 

#$40 

IRQ21 

#01 

RDRAMRD 

IRQ3 

RDMAINRAM 

#$20 

RDRAMWRT 

IRQ4 

WRMAINRAM 

#$10 

IRQ5 

SWMINT 



************** 

;Pascal 1.0 Initialization 

! + 

;* V=0 for main bank 
i+ Entry point from other bank assumes 

V=1 

;+ Save A on stack, not $45 

;+ X too 

;+ Save stack pointer 

;+ Skip past X 

;♦ And A 

;+ Here is the status Oh boy! 

;+ Fix the stack pointer 

;Save Y too 
;Get mouse info 
;As soon as we can 

;* No decimal mode please 
; + Test break bit 
;+ C=1 if break. V unchanged 
;TEST FOR 80-STDRE WITH 
; PAGE 2 TEXT. 
; MAKE IT ZERO OR $80 



iSET PAGE 2 RESET BIT. 
; * Which Rombank? 
; + Mar k other bank 

;BRANCH IF MAIN RAM READ 

;ELSE, SWITCH IT IN 

; AND RECORD THE EVENT! 

;D0 THE SAME FOR RAM WRITE. 



iBranoh if break 

;Save machine states so far... 
;+ Go Test Mouse & ACIA 



86 
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C844 

C846 

C847 

C848 

C84B 

C84D 

C84D 

C8S0 

C85a 

C852 

C854: 

C857: 

C859: 

C85B: 

C85E: 

C861 : 

C863: 

C864: 

0887: 

C86A: 

C86B: 

CSGE; 

C870: 

C872: 

C873: 

C875: 

C876; 

C878: 

C879: 

C87B: 

C87C: 



:90 
:G8 
: 18 
:2C 



3C 



C882 



12 C0 



80 03 



C8B0 
0000 



4C A8 CI 



C850 
C85E 



C0 



C8BB 



: 10 0C 

.•09 0C 

:2C 11 

: 10 02 

:49 0G 

:8D 81 C0 

:2C 16 C0 

: 10 0D C870 

:BA 

:8E 



01 
01 



11 
AE 00 
9A 

8D 08 C0 
09 80 
B0 35 
48 

A9 C8 
48 

A9 7F 
48 

A9 04 
48 
6C FE 



C8A7 



03 



61 

62 

63 

64 IRQ5 

65 

66 

67 

68 paask 

69 

70 

71 

72 

73 

74 IRQ6 

75 IRQ7 
76 

77 

78 

79 

80 

81 

82 

83 IRQ8 

84 

85 

86 

87 

88 

89 

90 

91 



ipl 



BCC 

PLA 

CLC 

BIT 

bra 

ds 

jmp 

equ 

BPL 

QRA 

BIT 

BPL 

EQR 

STA 

BIT 

BPL 

TSX 

STX 

LDX 

TXS 

STA 

ORA 

BCS 

PHA 

LDA 

PHA 

LDA 

PHA 

LDA 

PHA 

JMP 



IRQLCOK 

RDLCRAM 
passk Ipl 
»C84D-* ,$i 
pi read 

IRQ7 

*$C 

RDLCBNK2 

IRQ6 

*$6 

ROMIN 

RDALT2P 

IRQ8 

$101 
t100 

SETSTDZP 

*$80 

GDBREAK 

*<IRQDDNE 

*>IRQDONE 

*4 

($3FE) 



; + Branch If It was. LC unchanged! 
jRestore states recorded so far 
iReset break/ interrupt handler 
iDETERMINE IF LANGUAGE CARD ACTIVE 
;Sklp around pascal 1.0 stuff 



SET TWO BITS SO RESTORED 

LANGUAGE CARD IS WRITE ENABLED 
BRANCH IF NOT PAGE 2 OF $D000 
ENABLE READ FOR PAGE 2 ON EXIT 

LAST... AND VERY IMPORTANT! 
UNLESS IT IS NOT ENABLED 
SAVE CURRENT STACK POINTER 
AT BOTTOM OF STACK 
GET MAIN STACK POINTER 



;SAVE RETURN IRQ ADDR 

; SO WHEN INTERRUPT DOES RTI 
; IT RETURNS TO IRQDONE. 
;PRDCESS EXTERNAL INTERRUPT 



C0 



;87F: 
C87F: 
C87F: 
C87F: 
C87F: 
C87F: 
C87F: 
C87F: 
C87F: 

C87F:AD 81 
C882:68 
C883: 10 07 
C885:8D 09 C0 
C888:AE 1 01 
C88B:9A 
C88C:A0 06 
C88E: 10 06 
C890:BE 86 CF 
C893:FE 00 C0 
0896:88 
C897:30 03 
C899:0A 
C89A:D0 F2 
C89C:0A 
C89D:0A 



C88C 



C896 



C89C 



C88E 



93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

1 10 

111 

112 

113 

114 

1 15 

lie 

117 



* The user 

* BEWARE 

* The rom mu 

* This way 1 

* If It was 

* 1 f i t was 

* The restor 

* and some a 
» the 65C02 
IRQDONE LDA 
IRQLCOK PLA 

BPL 
STA 
LDX 
TXS 
LDY 
BPL 
LDX 
INC 
DEY 
BMI 
ASL 
BNE 
ASL 
ASL 



IRQDN1 
IRQDN2 



IRQDN3 



IRQDN4 



RTI returns here 

st be reenabled with a LDA romln 
f the LC was write protected, it still is 
write enabled, it still is 

being write enabled C 2 Idas), it still will be 
e loop uses an INC because some of the switches are read 
re write. It must be an INC abs,x since both the 6502 and 
do two reads before the write Cfor different reasons). 
ROMIN ;t Did some clown bank out the rom? 

;Recover machine state 
•I'QDNI ;Branch if main zp was active 
SETALTZP 
*101 ;Restore alternate stack pointer 



*$06 
IRQDN3 
IRQTBLE,Y 
$C000,X 

IRQDN4 

A 

IRQDN2 

A 

A 



;+ Y = index Into table of switches 

;+ Branch if no change 

;+ Get soft switch address 

;* Hit the switch. No page cross!!! 

;+ Branch if all done 
;Get next bit to check 

;+ Fall through if all done 

;* C = 1 if other rom bank 
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C89E:7A 

C89F:FA 

C8A0:68 

C8fi1:B0 01 

C8A3:4B 

C8A4:4C 



C8A4 



80 C7 



Serial i Keyboard 


b 


af f er i ng 


118 PLY 






119 PLX 






120 PLA 






121 BCS 




IRQDNS 


122 RTI 






123 IRQDN5 JMP 




SWRTI 
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;RESTDRE ALL REGISTERS 

;+ Which rom bank? 
;D0 THE REAL RTI ! 
; + Go back to the other bank 



C8A7: 

C8A7: 

C8A7: 

C8A7: 

C8A7: 

C8A7: 

C8A7: 

C8A7: 

C8A7: 

C8A7: 

C8A7;30 

C8A9:89 

C8AB:F0 



20 
09 

1C 



CI 
0B 
02 
01 



C8A7 
C8C9 



C8C9 



C8AD:29 FE 

C8AF:48 

C8B0:BA 

C8B1 :68 

C8B2:S8 

C8B3:68 

C8B4:e8 

C8B5:68 

C8Be:G8 

C8B7:7A 

C8B8:C0 

C8BA:90 

C8BC:E9 

C8BE:B0 

C8C0:88 

C8C1 :5A 

C802:48 

C8C3:9A 

C8C4:4C 7F C8 

C8C7:9A 

C8C8:G8 

C8C9:4C 47 FA 



C8C7 



C8C1 



125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
13G 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 



f«««««*«««*««««« 



f*#»»»#»* 



* GOBREAK- If 
« If the BRK 

* some fool m 

* deer emen ted 

* where we th 
* 



braek instruction has occurred, we check 
happened in the alternate rom bank. If it has, 
ay have hit the rom switch by accident and the PC is 

by two, the main rom is switched in and we resume 
ink he wanted to go 



GOBREAK 



GBIHOC 



GBNOTRDM 



GBBRK 



EQU 
BMI 
BIT 
BEQ 
AND 
PHA 
TSX 
PLA 
PLA 
PLA 
PLA 
PLA 
PLA 
PLY 
CPY 
BCC 
SBC 
BCS 
DEY 
PHY 
PHA 
TXS 
JMP 
TXS 
PLA 
JMP 



GBBRK 
#9 

GBBRK 
*$FE 



#$C1 

GBNOTRDM 
#2 
GBNDC 



IRQDONE 



NENBRK 



G i ve up if alt zp 

From alt rom and no lang card? 

If not then break 

Force main rom 

Save state 

Save stack pointer 

Skip State 

Skip Y 

Skip X 

Skip A 

Skip P 

> address 

< address 
In the ROM? 
Branch if not 
PC = PC - 2 

;Borrow from high byte 
jPush new address 

;Fix stack pointer 

;Fix stack pointer 
; Get state bac k 
;Go do the break 
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C8CC 
C8CC 
C8CC 
C8CC 
C8CC 
C8CC 
C8CC 
C8CC 
C8CC 



162 
163 
164 
165 
166 
167 
168 
169 
170 



The following routine is for reading key- 
board from buffers or directly. 

Type-ahead buffering only occurs for non auto- 
repeat keypresses. When a key Is pressed for 
auto-repeat the buffer is first emptied, then the 
repeated characters are returned. 

The minus flag is used to indicate if a keystroke 
is being returned. 



C8CC:AD 00 C0 172 XRKBD1 
C8CF:10 04 C8D5 173 

C8D1:8D 10 C0 174 
C8D4:60 175 XNOKEY 



C8D5:20 E6 C8 
C8D8:10 FA C8D4 
C8DA:90 F0 C8CC 
C8DC:5A 
C8DD:A0 80 
C8DF:20 DF C7 
C8E2;7A 
C8E3:09 00 
C8ES:60 



177 XRDKBD 

178 

179 

180 

181 

182 

183 

184 

185 



LDA 
BPL 
STA 
RTS 

JSR 
BPL 
BCC 
PHY 
LDY 
JSR 
PLY 
DRA 
RTS 



KBD 

XRDKBD 

KBDSTRB 



XBITKBD 

XNDKEY 

XRKBD1 

*$80 
SWGETB 



;test keyboard directly 

;loop if buffered since test. 

;Clear keyboard strobe. 

;Minus flag indicates valid character 

;i5 keyboard input ready? 

;Branoh if not . 

iBranch if direct KBD input. 

;Save Y 

;Y=$80 for keyboard buffer 

iGet data from buffer 

; Set minus flag 



C8E6:2C FA 05 



187 XBITKBD 



C8E9: 10 


10 


C8FB 


188 




C8EB:38 






189 




C8EC:08 






190 




C8ED;48 






191 




C8EE:AD 


FF 


06 


132 




C8F1 :CD 


FF 


05 


193 




C8F4:F0 


03 


C8F9 


194 




C8Fe:68 






195 




C8F7:28 






196 




C8F8:60 






197 




C8F9: 






198 


* 


C8F9:68 






199 


XBKB1 


C8FA:28 






200 




C8FB:2C 


00 


C0 


201 


XBKB2 


C8FE: 18 






202 




C8FF:e0 






203 





BIT 

BPL 
SEC 
PHP 
PHA 
LDA 
CMP 
BEQ 
PLA 
PLP 
RTS 

PLA 
PLP 
BIT 
CLC 
RTS 



TYPHED 
XBKB2 



TRKEY 
TWKEY 
XBKB1 



KBD 



;Thia routine replaces "BIT KBD" 

instruct ions 
; so as to function with type-ahead. 
;anticipate data in buffer is ready 
; save carry and minus flags 
jpreserve accumulator 

;is there data to be read? 

;branch if type-ahead buffer empty 



;Carry and minus flag already set. 



;re5tore ACC and Status 
; test KBD Directly 
[indicate direct test 



0900 








C900 








C900 








C900 








C900 








C900 








C900 








C900 








C900 


AD 


FC 


07 


0903 


09 


01 




0905 


F0 


06 




C907 


AD 


70 


C0 


O90A 


40 


21 


FB 



0900 



C90D 



205 •»••••»••••••••»»«•••••»•»•••»•••••«»... 

206 * 

207 * PADDLE patch 

208 * This routine returns the mouse position instead of 

209 • the paddle if the mouse is on 

210 * 

211 »»»••»«»»»•»•«».«.»«.«»».»«,,,.,«,,,»,,, 



;Is the mouse active? 
;Only transparent mode 

; Fire the strobe 



212 


mpaddle 


equ 


» 


213 




Ida 


moumode 


214 




cmp 


#01 


215 




beq 


pdon 


216 




Ida 


vblclr 


217 




jiup 


$FB21 
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Keyi 


C90D: 




C90D 


218 


C90D:E0 


01 




219 


C90F:eA 






220 


C910:A8 






221 


C911:B9 


70 


05 


222 


C914:F0 


02 


C918 


223 


C916:A9 


FF 




224 


C918:19 


7C 


04 


225 


C91B:A8 






228 


C91C:e0 






227 


C91D: 






41 
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pdon 

;C=1 If X=1 
;A=80 or 

; Ge t high byte 



Ddok 



equ 
cpx 


*1 


ror 


A 


tay 
Ida 


mouxh ,y 


beq 
Ida 


pdok 
#$FF 


ora 


mouxl , y 


tay 
rts 




iTicl 


ude mini 



;Mini assembler & step routines 
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6SC02 Mini 


assembl 


2r 




31-MAY-85 


;91D: 






3 


•««««»«..»«.,,,,,,,»,,,,,,,,,,,,,,,,,,,, 


C91D: 






4 


# 










C91D: 






5 


* Appl 


e //c Mini Assembler 




C91D: 






e 


# 










C91D: 






7 


* Got 


mnemonic 


chec k 


address 


mode 


C91D: 






8 


# 










C91D: 






9 


*****************tnnt**<nnt****mnnnnnnnnnt 


C91D:20 


3B 


CA 


10 


AM0D1 


JSR 


NNBL 




;get next non-blank 
; save Y 


C920:8<1 


34 




1 1 




STY 


YSAV 




C922:DD 


BA 


F9 


12 




CMP 


CHAR1 


X 




C925:D0 


13 


C93A 


13 




BNE 


AM0D2 






C927:20 


3B 


CA 


14 




JSR 


NNBL 




iget next non-blank 


C92A:DD 


B4 


F9 


IS 




CMP 


CHAR2, 


X 


C92D:F0 


0D 


C93C 


16 




BEQ 


AMDD3 






C92F:BD 


B4 


F9 


17 




LDA 


CHAR2, 


X 


;done yet? 


C932:F0 


07 


C93B 


18 




BEQ 


AM0D4 




C934:C9 


A4 




19 




CMP 


*$A4 




; i f "$" then done 


C93G:F0 


03 


C93B 


20 




BEQ 


AM0D4 






C938:A4 


34 




21 




LDY 


YSAV 




; res tore Y 


C93A: 18 






22 


AM0D2 


CLC 








C93B;88 






23 


AMaD4 


DEY 








C93C:26 


44 




24 


AMDD3 


ROL 


A5L 




;shlft bit into forr 


C93E:E0 


03 




25 




CPX 


«'*03 






C940:D0 


0D 


C94F 


26 




BNE 


AM0D6 






C942:20 


A7 


FF 


27 




JSR 


GETNUM 






C945:AS 


3F 




28 




LDA 


A2H 




;get high byte of a( 
; = > 


C947:F0 


01 


C94A 


29 




BEQ 


AMODS 




C949:E8 






30 




INX 








C94A!8G 


35 




31 


AMODS 


STX 


YSAV1 






C94C:A2 


03 




32 




LDX 


*$03 






C94E:88 






33 




DEY 








C94F:8e 


3D 




34 


AM0D6 


STX 


AIM 






C9S1:CA 






35 




DEX 








"952: 10 


C9 


C91D 


36 




BPL 


AM0D1 






J9S4:60 






37 




RTS 
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C95S: 
0955: 
C95S: 
0955: 

09S5:E9 81 
0957 :4A 
C958:D0 14 
C95A:A4 3F 
C95C:A6 3E 
C95E:D0 01 
0960:88 
0961 :CA 
0962 :8A 
0963: 18 
0964 lES 3A 
0966:85 3E 
0968:10 01 
096A:C8 
C96B:98 
096C:E5 3B 



C96E 



0961 



C96B 



39 * 

40 • 

41 * Oa 

42 • 

43 REL 
44 

45 

46 

47 

48 

49 

50 REL1 

51 

52 

53 

54 

55 

56 

57 REL2 

58 



Iculate offset byte for relative addresses 

;calc relative address 
;bad branch 



; point to offset 
; di splacemen t - 1 



SBC 


*«81 


LSR 


A 


BNE 


GDERR 


LDY 


A2H 


LDX 


A2L 


BNE 


REL1 


DEY 




DEX 




TXA 




CLO 




SBC 


PCL 


STA 


A2L 


BPL 


REL2 


INY 




TYA 




SBC 


POH 



;subtract current PCL 
;and save as displacement 
;check page 

; get page 
;check page 
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C96E 
C970 
C970 
C970 
C970 
C972 
C975 
C977 
C978 
C97A 
C97A 
C97A 
C97A 
C97D 
C980 
C983 
C983 
C986 
C986 
C988 
C98A 
C98D 
C98F 
C98F 
C98F 
C98F 
C98F 
C991 
C994 
C995 
C998 
C99A 
C99C 

C99F 
C9A1 
C9AA 
C9AD 



:D0 57 



C9C7 



A4 2F 

B9 3D 00 

91 3A 

88 

10 F8 C972 



20 48 F9 



20 
20 



1A FC 
1A FC 



C983 



20 C4 C5 

A9 A1 
85 33 
20 67 FD 
80 49 



C986 



C9D8 



A5 3D 

20 8E F8 

AA 

BD 00 FA 

C5 42 

D0 21 C9BD 

BD C0 F9 



80 0C 



C9AD 
0009 



4C B4 CI 



C9AD:C5 43 
C9AF:D0 0C 
C9B1 :A5 44 
C9B3:A4 2E 
C9B5;C0 9D 
C9B7:F0 9C 
C9B9:C5 2E 
C9BB:F0 B3 
C9BD:C6 3D 
C9BF:D0 CE 
C9C1 :E6 44 
C9C3:CG 35 
C9C5:F0 C8 
C9C7: 
C9C7: 
C9C7: 
C9C7: 

C9C7:A4 34 
C9C9:98 



C9AD 



C9BD 



C95S 



C970 



C98F 



C98F 



Compare 
the one 



59 GQERR 

60 * 

61 * Move i 

62 * 

63 MDVINST 

64 M0V1 
65 

66 

67 

68 * 

69 

70 

71 

72 

73 

74 DISLIN 

75 

76 GETINST1 

77 

78 

79 

80 

81 * 

82 

83 

84 • 

85 GETOP 
86 

87 
88 
89 
90 
91 

93 
94 
95 
96 pi skip 

98 

99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
1 10 
111* 

112 * 

113 * 

114 * 

115 M 

116 E 



BNE 

IS t ruct 

LDY 
LDA 
STA 
DEY 
BPL 



MINIERR 

Ion to memory 

LENGTH 

A1H,Y 

(PCL),Y 



MOVI 
Display instruction 



JSR 
JSR 
JSR 
EQU 
JSR 
EQU 
LDA 
STA 
JSR 
BRA 

di sas 
typed 

LDA 
JSR 
TAX 
LDA 
CMP 
BNE 
LDA 



NXTDP 



PRBLNK 

UP 

UP 

* 

SHOUIINST 

#$A1 
PROMPT 
GETLNZ 
DOINST 



;di5play error 



jget instruction length 
; ge t a byte 
;and move it 



;prlnt blanks to make ProDDS work 
; move up 2 1 i nes 



jDisplay line & get next instruction 
;Get the next Instruction 
; ! for prompt 

; Ge t a line 

; Go do the instruction 



sembly of all known opcodes with 
in until a match is found 



A1H 
INSDS2 

MNEMR.X 
A4L 
NXTOP 
MNEML.X 



bra p 1 s k ip 

ds $C9AA-«, 

jmp p 1 wr i t e 

equ * 



CMP 
BNE 
LDA 
LDY 
CPY 
BEQ 
CMP 
BEQ 
DEC 
BNE 
INC 
DEC 
BEQ 



A4H 

NXTOP 

A5L 

FORMAT 

#$9D 

REL 

FORMAT 

MOVINST 

A1H 

GETOP 

A5L 

YSAV1 

GETOP 



jget opcode 

jdetermine mnemonic index 

; X = i ndex 
;get right half of index 
;doe5 it match entry? 
;=>try next opcode 
;get left half of index 

;Skip past pascal stuff 

;Hello I'm the pascal 1.0 entry point 

jjust getting in the way 



does it match entry? 

=>no, try next opcode 

found opcode, check address mode 

get addr. mode format for that opcode 

is it relative? 

=>yes, calc relative address 

does mode match? 

=>yes, move instruction to memory 

else try next opcode 

= >go try it 

else try next format 



=>go try next format 



Point to the error with a caret, 
into the mi ni -assembler . 



and fall 



INIERR 
RR2 



LDY 
TYA 



YSAV 



; get pos i t ion 



92 
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C9CA 

C9CB 

C9CB 

C9CE 

C9DB 

C9D3 

C9D6 

C9D8: 

C9D8: 

C9D8: 

C9D8: 

C9D8: 

C9D8: 

C9DB: 

C9DE: 

C9E0: 

C9E2: 

C9E4: 

C9E6: 

C9E7: 

C9E7: 

C9EA: 

C9EC: 

C9EE: 

C9EF! 

C9F1 : 

C9F1 : 

C9F4: 

C9F6: 

C9F8: 

C9FB: 

C9FC: 

C9FE: 

CA00: 

CA02: 

CA02: 

CA02: 

CA02: 

CA03: 

CA04: 

CA06: 

CA07! 

CAB9: 

CA0B: 

CA0C: 

CA0E: 

CA10: 

CA12: 

CAM: 

CA16: 

CA19: 

CA1B: 

CA1C: 

CA1D: 

CA1F: 

CA21 : 

CA23: 

CA25: 



AA 



:20 4A 
:A9 DE 
:20 ED 
:20 3A 
:80 AE 



20 C7 
AD 00 
C9 A0 
F0 12 
C9 8D 



C9CB 



F9 



FD 

FF 



C98G 



FF 
02 



D0 
60 



II 



C9F4 
C9E7 



20 A7 
C9 93 
D0 DB 
8A 
F0 D8 

20 78 
A9 03 
85 3D 
20 3B 
0A 

E9 BE 
C9 C2 
90 C7 



FF 



C9C9 
C9C9 



FE 



CA 



C9C9 



0A 

0A 

A2 04 

0A 

26 42 

26 43 

CA 

10 F8 

CG 3D 

F0 F4 

10 E4 

A2 05 

20 ID C9 

AS 44 

0A 

0A 

05 35 

09 20 

B0 06 

A6 35 



CA06 



CA06 
C9F8 



CA29 
CA29 



117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 



ERR3 



Read a line 
mnemonic . I f 
hex address b 



TAX 






EQU 


* 




JSR 


PRBL2 




LDA 


#$DE 


;" to point to error 


JSR 


COUT 




JSR 


BELL 


;Beep cause we're mad 


BRA 


GETINST1 


;try again 



f input. If prefaced with " ", decode 
"$" do monitor command. Otherwise parse 
efore decoding mnemonic. 



DOINST 



GETI1 
GDERR2 



DDLIN 
NXTCH 



JSR 
LDA 
CMP 
BEQ 
CMP 
BNE 
RTS 

JSR 
CMP 
BNE 
TXA 
BEQ 

JSR 
LDA 
STA 
JSR 
ASL 
SBC 
CMP 
BCC 



ZMDDE 
$200 
#$A0 
DDL IN 
#$8D 
GETI 1 



GETNUM 

*$93 

ERR2 

ERR2 

A1PCLP 

/$03 

A1H 

NNBL 

A 

#$BE 

*$C2 

ERR2 



clear mode 

get first char in line 

If blank, 

=>go attempt disassembly 

is it return? 

= >no , cont inue 

else return to Monitor 

parse hexadecimal input 

look for "ADDR:" 

no ":", display error 

X nonzero if address entered 

no "ADDR", display error 

move address to PC 
get starting opcode 
and save 

get next non-blank 
val i date entry 



;=>flag bad mnemonic 
* Form mnemonic for later comparison 



NXTMN 



ASL 


A 


ASL 


A 


LDX 


#$04 


ASL 


A 


ROL 


A4L 


ROL 


A4H 


DEX 




BPL 


NXTMN 


DEC 


A1H 


BEQ 


NXTMN 


BPL 


NXTCH 


LDX 


#»S 


JSR 


AM0D1 


LDA 


ASL 


ASL 


A 


ASL 


A 


QRA 


YSAV1 


CMP 


#$20 


BCS 


AMaD7 


LDX 


YSAV1 


BEQ 


AM0D7 



idecrement mnemonic count 



;index into address mode tables 
;do this elsewhere 
; get format 



iget our format 
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CA27 


09 


80 




CA29 


85 


44 




CA2B 


84 


34 




CA2D 


B9 


00 


02 


CA30 


C9 


BB 




CA32 


F0 


04 




CA34 


C9 


8D 




CA36 


D0 


B4 




CA38 


4C 


8F 


C9 



CA38 



C9EC 



175 

176 AMaD7 

177 

178 

179 

180 

181 

182 

183 AM0D8 



ORA 


*$80 


STA 


A5L 


STY 


YSAV 


LDA 


$0200, Y 


CMP 


#$BB 


BEQ 


AMDD8 


CMP 


*»8D 


BNE 


G0ERR2 


JMP 


GETOP 



jupdate format 
; update pos i t ion 
iget next character 
; i s It a ";"? 
;=>ye5, skip comment 
;ls It carriage return 

;get next opcode 



CA3B 
CA3B 
CA3B 
CA3B 
CA3B 
CA3B 
CA3B 
CA3E 
CA40 
CA42 



185 ********•«»*»*#*»*»#*****«***##*»#*»**## 

18G * 

187 * NNBL - Gets a non blank character for the mini assembler 

188 * 

1 89 *»*****••***•****«»•»»•»***#»»•»•«#»*##« 
CA3B 190 nnbl equ » 

20 B4 CS 191 jsr getup ;Get next upshifted character 

C9 A0 192 cmp #$A0 ;Blank? 

F0 F9 CA3B 193 beq nnbl 

60 194 rts 



mmvare Listing 



14 MINI 

CA43: 

CA43: 

CA43: 

CA43: 

CA43: 

CA43: 

CA43:2C 

CA46: 10 

CA48:A2 

CA4A:20 

CA4D:CA 

CA4E:DB 

CA50:2C 

CAB3:30 

CA55:20 

CAS8: 18 

CA59:20 

CABC:68 

CA5D:8S 

CA5F:68 

CAe0:85 

CA62:A2 

CA64:BD 

CA67:95 

CAG9:CA 

CA6A:D0 

CAeC:A1 

CA6E:F0 

CA70:A4 

CA72:C9 

CA74:F0 

CA76:C9 

CA78:F0 

CA7A!C9 

CA7C:F0 

CA7E:C9 

CA80:F0 

CA82:C9 

CA84:F0 

CA86:C9 

CA88:F0 

CA8A:C9 

CA8C:D0 

CA8E:A9 

CA90:29 

CA92:49 

CA94:C9 

CA9e:F0 

CA98:B1 

CA9A:99 

CA9D:88 

CA9E: 10 

CAA0:20 

CAA3:4C 

CAA6:A9 

CAA8:A2 

CAAA:80 

CAAC: 18 
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CA43 

61 C0 

08 CA50 

07 

A8 FC 

FA CA4A 

62 C0 

51 CAA6 
75 FE 

0D CB 



2C 

2D 
08 

04 CB 
3C 

F8 
3A 
36 
2F 
20 
4A 
60 
36 
4C 
4A 
6C 
47 
7C 
5D 
40 
22 
80 
02 
10 
IF 
14 
04 
02 
3A 
3C 00 



CA64 



CAA6 



CAC0 



CAB0 



CAC8 



CAC9 



CAE3 



CAAC 



CA90 



CA9A 



F8 CA98 

3F FF 

3C 00 

64 

FF 

2D CAD9 



196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 



##**##########»#*♦»##*##«#* 



Step and trace routines 



*««««**««««««««««««««#«»«#« 



t#»«««»#«« 



»»*###*»###* 



step 



xqwai t 



xqnobt 



xqlni t 



xqnt bra 



xq 1 
xq2 



xbr k 



xrt i 



equ 
bit 


* 
butn0 


bpl 
Idx 


xqnobt0 
#7 


] = ■- 


wait 


dex 




bne 


xqwai t 


bit 


butnl 


bml 


xbrk 


jsr 
olc 


alpc 


pla 
sta 


godsp 
rtnl 


pla 
sta 


rtnh 


Idx 


*$08 


Ida 


inl tbl-1 , X 


sta 


xqt , X 


dex 




bne 


xqinl t 


Ida 


(pcl.x) 


beq 


xbrk 


Idy 
cmp 


length 
*$20 


beq 


x j sr 


cmp 


#$60 


beq 


xr ts 


cmp 


#$4C 


beq 
cmp 


xjmp 
#$6C 


beq 
cmp 


X Jmpat 
#$7C 


beq 


X jmpat X 


cmp 


#$40 


beq 


xrt i 


cmp 


#$80 


bne 


xqnt bra 


Ida 


#$10 


and 


#$1F 


eor 


#$14 


cmp 


#$04 


beq 
Ida 


xq2 
CpcD.y 


sta 
dey 
bpl 


xqt.y 
xql 


jsr 


restore 


Ida 


xqt 
#>mon- 1 


Idx 


*<mon- 1 


bra 


r tn jmp2 


clc 





;Dpen apple = slow step 
;Wait about a second 



;Closed apple = break 

;If user specified an address, move it 

^Disassemble one instruction 

;At (PCL,H) 
;AdJust to user stack 

; Save return address 

; I ni t XEQ area 



;Special if break 

;Do JSR, RTS, JMP, JMP C), JMP {,X), RTI 



;Make bra turn into bpl 



;Copy user inst to xeq area 
jChange rel branch 

; displacement to 4 for jmp to branch 
;or jump to nbranch 

Restore user reg contents 

Xeq user op from ram 

Print registers and go to monitor 

;Dl5play regs & go to monitor 



Appendix A: 



14 MINI 




CAflD 


;6S 




CAAE 


:85 


48 


CAB0 


:68 




CAB1 


:8B 


3A 


CAB3 


:68 




CAB4 


:SB 


3B 


CAB6 


:AS 


2F 


CABS 


:20 


B6 F9 


CABB 


:S4 


3B 


CABD 


: 18 




CABE 


:90 


11 


CACB 


; 18 




CAC1 


:20 


B4 F9 


CAC4 


:SA 




CACS 


:48 




CAC6 


:A0 


02 


CACS 


: 18 




CAC9 


:B1 


3A 


CACB 


:AA 




CACC 


:88 




CACD 


:B1 


3A 


CACF 


•86 


3B 


CADI 


8B 


3A 


CADS 


B0 


F3 


CADS 


A6 


2D 


CAD7 


AB 


2C 


CAD9 


DA 




CADA 


48 




CADB 


A9 


27 


CADD 


SB 


24 


CADF 


38 




CAE0 


4C 


0D CB 


CAE3 


18 




CAE4 


AB 


3A 


CAE6 


6B 


46 


CAE8 


SB 


3A 


CAEA 


90 


02 


CAEC 


E6 


3B 


CAEE 


38 




CAEF 


80 


D8 


CAF1 


18 




CAF2 


A0 


01 


CAF4 


B1 


3A 


CAF6 


20 


B6 F9 


CAF9 


SB 


3A 


CAFB 


98 




CAFC 


38 




CAFD 


B0 


B5 


CAFF 


20 


4A FF 


CB02 


38 




CB03 


B0 


B1 


CB05 






CB0B 






CB0B 






CB05 






CBBB 






CB05 
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2B4 



pla 



CADI 



CACS 



CAEE 



CAC9 



CAB4 



CAB6 



2BB 




sta 


status 


2B6 


xr 1 5 


pla 




2B7 




sta 


pel 


258 




pla 




259 


poinc2 


sta 


pch 


260 


pc 1 nc3 


Ida 


length 


261 




i^'- 


pcad j 3 


262 




= ty 


pch 


263 




clc 




264 




bcc 


newpc 1 


265 


xj sr 


clc 




266 




]sr 


pcadj2 


267 




phy 




268 




pha 




269 




Idy 


*$02 


270 


xjmp 


clc 




271 


X jmpa t 


Ida 


tpcD.y 


272 




tax 




273 




dey 




274 




Ida 


(pcl),y 


275 




stx 


pch 


276 


newpc 1 


sta 


pel 


277 




bcs 


xjmp 


278 


r tn jmp 


Idx 


rtnh 


279 




Ida 


rtnl 


280 


r t n Jmp2 


phx 




281 




pha 




282 




Ida 


*39 


283 




sta 


ch 


284 




sec 




285 




Ji^P 


godsp 


286 


X Jmpatx 


clc 




287 




Ida 


pel 


288 




adc 


xreg 


289 




sta 


pc 1 


290 




bcc 


X j xnoc 


291 




inc 


pch 


292 


X j xnoc 


sec 




293 




bra 


X jmpat 


294 


branch 


clc 




295 




Idy 


'$01 


296 




Ida 


(pcl>,y 


297 




J=f 


pcadi3 


298 




sta 


pel 


299 




tya 




300 




sec 




301 




bcs 


pcinc2 


302 


nbrnch 


Jsf 


save 


303 




sec 




304 




bcs 


peinc3 



jSimulate rti by geting status from 
stack 
;Then doing rts 
;Pop PC (not pc - 1)! 



iUpdate Pc by 1 <Len = 0) 
;Update pc by length 



;Push pc onto stack for jsr 



;Load pc for jmp, Cjmp) simulate 



;Move over 



;JMP (,X) 
;Add X to address 



;C = 1 for indirect jump 

;Branch taken 
;Add len+2 to PC 



;Normal return from xeq 
;Go update PC 

306 ***»•****•**•*****#****#****•#•*****•**• 

307 • 

308 * This is the table that is moved into zero page 

309 * when stepping and tracing 

310 * 

3'! -j »««««*«*««**««««*«»«-**#*»«*«■«»«««»«««««« 



96 



PiiTiiware Listing 



14 MINI 






65C02 Mini 


assembler 


CB05;EA 






312 initbl 


nop 


CB06:EA 






313 


nop 


CB07:4C 


FF 


CA 


314 


jmp nbrnch 


CB0A:4C 


F1 


CA 


315 


jmp branch 
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CB0D 






CB0D 






CB0D 






CB0D 






CB0D 






CB0D 






CB0D 






CB0D 






CB0D 






CB0D 


A5 


36 


CB0F 


48 




CB10 


AS 


37 


CB12 


48 




CB13 


A9 


F0 


CB15 


85 


36 


CB17 


A9 


FD 


CB19 


85 


37 


CB1B 


B0 


05 


CB1D 


20 


D0 


CB20 


80 


03 


CB22 


20 


DA 


CB25 


68 




CB26 


85 


37 


CB28 


88 




CB23 


85 


36 


CB2B 


60 




;B2C 







CB0D 



CB22 



F8 



CB25 



FA 



317 
318 
319 
320 
321 
322 
323 
324 



********* 



********************* 



* * * * * t^* * 



GDDSP - Saves hooks, calls display routine and fixes hooks 
C = Instruction display 
C " 1 register display 
used by step and trace 



**************************************** 



325 godsp 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 godreg 

338 goddone 
339 

340 

341 

342 

42 



equ 
Ida 
pha 
Ida 
pha 
Ida 
s ta 
Ida 
5 ta 
bcs 

bra 



cswl 



cswh 



#>cout1 

cswl 

#<cout1 

cswh 

godreg 

Instdsp 

goddone 

rgdspl 



cswh 



cswl 



;Save output hook 



i Which display? 



jsr 
pla 
sta 
pla 
s ta 
rts 
INCLUDE SCROLLING 



iMore Video stuff @$CB30 
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CB2C: 

points 

CB30: 

CB30: 

CB30; 

CB30: 

CB30! 

CB3B: 

CB30:DA 

CB31 :A2 

CB33:80 

CB35: 

CB35:DA 

CB36:A2 

CB38:A4 

CB3A:2C 

CB3D: 10 

CB3F:8D 

CB42:98 

CB43:4A 

CB44:A8 

CB45:A5 

CB47:4A 

CB48!B8 

CB49:90 

CB4B:2C 

CB4E:2A 

CB4F:45 

CB51 :4A 

CB52:70 

CB54:B0 

CB56:88 

CB57:8C 

CB5A:AD 

CBSD:08 

CBSE:A5 

CB60:E0 

CB62:D0 

CB64:AS 

CB66:3A 

CB67: 

CB67:8D 

CB6A:20 

CB6D: 

CB6D:A5 

CB6F:85 

CB71 :A5 

CB73:85 

CB75: 

CB75:AD 

CB78:E0 

CB7A:D0 

CB7C:CS 

CB7E:F0 

CB80:3A 

CB81 :80 

CB83: 1A 

CB84:C5 



0004 



ds 



$CB30-*,0 



;ALign for fools with illegal entry 



03 



CB38 



01 

21 

IF C0 

18 CB57 

01 ca 



03 CB4E 
CI CB 

21 

03 CB57 
01 CB57 

F8 05 
IF C0 

22 

00 

03 CB67 

23 



78 05 
24 FC 

28 
2A 
29 
2B 

78 05 

00 

07 CB83 

22 

39 CBB9 

05 CB88 

23 



CB86:B0 31 



CBB9 



5 • SCROLL! 

6 * on the 

7 • or odd 

8 * windows 

9 * 

10 SCROLLDN 

11 

12 

13 * 

14 SCROLLUP 
15 

16 SCROLLIT 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 CHKRT 

29 

30 

31 

32 

33 

34 GETST 

35 

36 

37 

38 

39 

40 

41 

42 • 

43 SETDBAS 
44 

45 • 

46 SCRLIN 
47 

48 

49 

50 * 

51 

52 

53 

54 

55 

56 

57 

58 SETUPS 

59 

60 



T scrolls the screen either up or down, depending 
value of X. It scrolls within windows with even 
edges for both 40 and 80 columns. It can scroll 
down to 1 characters wide. 



PHX 
LDX 
BRA 

PHX 
LDX 
LDY 
BIT 
BPL 
STA 
TYA 
LSR 
TAY 
LDA 
LSR 
CLV 
BCC 
BIT 
ROL 
EOR 
LSR 
BVS 
BCS 
DEY 
STY 
LDA 
PHP 
LDA 
CPX 
BNE 
LDA 
DEC 

STA 
JSR 

LDA 
STA 
LDA 
STA 

LDA 
CPX 
BNE 
CMP 
BEQ 
DEC 
BRA 
INC 
CMP 
BCS 



*0 
SCROLLIT 



WNDWDTH 
RD80VID 
GETST 
SET80COL 



WNDLFT 
A 

CHKRT 

SEV1 

A 

WNDWDTH 

A 

GETST 

GETST 

TEMPY 
RD80VID 

WNDTOP 

*0 

SETDBAS 

WNDBTM 

A 

TEMPA 
VTABZ 

BASL 
BAS2L 
BASH 
BAS2H 

TEMPA 

#0 

SETUP2 

WNDTOP 

SCRL3 

A 

SETSRC 

A 

WNDBTM 

SCRL3 



save X 
direction 
do scroll 



down 



save X 
direction = 
get width of 
in 40 or 80 c 
=>40 , de termi 
make sure thi 
get WNDWDTH f 
divide by 2 f 
and save 
test oddi ty o 
by rotating 1 
V=0 If left e 
= >checl< right 
V=1 if left e 
restore WNDLF 
get oddity of 
C=1 if right 
if odd left, 
if even right 
if right edge 
save window w 
N=1 if 80 col 
save N,Z,V 
assume scro 1 1 
up or down? 
= >up 

down , start s 
really need o 



screen window 

olumns? 

ne start ing 1 ine 

s is enabled 

r test 
or 80 column index 

f right edge 

ow bit into carry 

dge even 

edge 
dge odd 
T 

right edge 
edge even 
don't DEY 
, don't DEY 

odd, need one less 
idth 
umns 

from top 



crolling at bottom 
ne less 



save current line 

calculate base with window width 



current line is destination 



; ge t current line 

;going up? 

=>up, inc current line 

;down. Reached top yet? 

;yes! clear top line, exit 

; no , go up a line 

;set source for scroll 

; up , inc current line 

;at bottom yet? 

;yes! clear bottom line, exit 
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CB88: 






61 


* 






CB88:8D 


78 


05 


62 


SETSRC 


STA 


TEMPA 


CB8B:20 


24 


FC 


63 




JSR 


VTABZ 


CB8E:AC 


F8 


05 


64 




LDY 


TEMPY 


CB91 :28 






65 




PLP 




CB92:08 






66 




PHP 




CB93:10 


IF 


CBB4 


67 




BPL 


SKPRT 


CB95:AD 


55 


C0 


88 




LDA 


TXTPAGE2 


CB98:98 






69 




TYA 




CB99:F0 


07 


CBA2 


70 




BEQ 


SCRLFT 


CB9B:B1 


28 




71 


SCRLEVEN 


LDA 


(BASD.Y 


CB9D:91 


2A 




72 




STA 


(BAS2L>,Y 


CB9F:88 






73 




DEY 




CBA0:D0 


F9 


CB9B 


74 




BNE 


SCRLEVEN 


CBA2:70 


04 


CBA8 


75 


SCRLFT 


BVS 


SKPLFT 


CBA4;B1 


28 




76 




LDA 


(BASD.Y 


CBA6;91 


2A 




77 




STA 


(BAS2L),Y 


CBA8;AD 


54 


C0 


78 


SKPLFT 


LDA 


TXTPAGE1 


CBABiAC 


F8 


05 


79 




LDY 


TEMPY 


CBAE:BB 


04 


CBB4 


80 




BCS 


SKPRT 


CBB0:B1 


28 




81 


SCRLODD 


LDA 


(BASD.Y 


CBB2!91 


2A 




82 




STA 


(BAS2L),Y 


CBB4:88 






83 


SKPRT 


DEY 




CBB5:10 


F9 


CBB0 


84 




BPL 


SCRLODD 


CBB7:80 


B4 


CBGD 


85 




BRA 


SCRLIN 


CBB9: 






86 


» 






CBB9;20 


A0 


FC 


87 


SCRL3 


JSR 


CLRLIN 


CBBC:20 


22 


FC 


88 




JSR 


VTAB 


CBBF:28 






89 




PLP 




CBC0:FA 






90 




PLX 




CBC1 :60 






91 


SEV1 


RTS 





j save new current line 

;get base for new current line 

;get width for scroll 

;get status for scroll 

iN=1 if 80 columns 

;=>only do 40 columns 

;soroll aux page first (even bytes) 

;te5t Y 

;if Y=0, only scroll one byte 



; do all but last even byte 
;odd left edge, skip this byte 



; now do main page (odd bytes) 

i restore width 

;even right edge, skip this byte 



; scrol 1 next 1 ine 

jclear current line 
irestore original cursor line 
ipull status off stack 
^restore X 
;done! ! ! 
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CBC2: 






93 


« 






CBC2: 






94 


• DQCLR 


is call 


ed by CLR 


CBC2: 






95 


* to do 


a Cquic 


k) 40 or 


CBC2: 






96 


* 






CBC2:2C 


IF 


C0 


97 


DQCLR 


BIT 


RD80VID 


CBC5:30 


13 


CBDA 


98 




BMI 


CLR80 


CBC7:91 


28 




99 


CLR40 


STA 


(BASD.Y 


CBC9:C8 






100 




INY 




CBCA:C4 


21 




101 




CPY 


WNDWDTH 


CBCC:90 


F9 


CBC7 


102 




BCC 


CLR40 


CBCE:60 






103 




RTS 




CBCF: 






104 


« 






CBCF:DA 






105 


CLRHALF 


PHX 




CBD0:A2 


D8 




106 




LDX 


*$D8 


CBD2:A0 


14 




107 




LDY 


*20 


CBD4:A5 


32 




108 




LDA 


INVFLG 


CBD6:29 


A0 




109 




AND 


#$A0 


CBD8:80 


17 


CBF1 


110 




BRA 


CLR2 


CBDA: 






111 


* 






CBDA:DA 






112 


CLR80 


PHX 




CBDB:48 






113 




PHA 




CBDC:98 






114 




TYA 




CBDD:48 






115 




PHA 




CEDE: 38 






116 




SEC 




CBDF:E5 


21 




117 




SBC 


WNDWDTH 


CBE1:AA 






118 




TAX 




CBE2:98 






119 




TYA 




CBE3;4A 






120 




LSR 


A 


CBE4:A8 






121 




TAY 




CBES:68 






122 




PLA 




CBE6:45 


20 




123 




EOR 


WNDLFT 


CBE8:6A 






124 




ROR 


A 


CBE9:B0 


03 


CBEE 


125 




BCS 


CLR0 


CBEB: 10 


01 


CBEE 


126 




BPL 


CLR0 


CBED:C8 






127 




INY 




CBEE:68 






128 


CLR0 


PLA 




CBEF:B0 


0B 


CBFC 


129 




BCS 


CLR1 


CBF1 :2C 


S5 


C0 


130 


CLR2 


BIT 


TXTPAGE2 


CBF4:91 


28 




131 




STA 


(BASD.Y 


CBF6:2C 


54 


C0 


132 




BIT 


TXTPAGE1 


CBF9:E8 






133 




INX 




CBFA:F0 


06 


CC02 


134 




BEQ 


CLR3 


CBFC:91 


28 




135 


CLR1 


STA 


(BASD.Y 


CBFE:C8 






136 




INY 




CBFF:E8 






137 




INX 




CC00:D0 


EF 


CBF1 


138 




BNE 


CLR2 


CC02:FA 






139 


CLR3 


PLX 




CC03:60 






140 




RTS 




CC04: 






141 


* 






CC04:9C 


FA 


05 


142 


CLRPQRT 


STZ 


TYPHED 


CC07:9C 


F9 


05 


143 




ST2 


EXTINT2 


CC0A:60 






144 




RTS 





;40 or 80 column clear? 
;=>clear 80 columns 



jclear right half of screen 
;for SCRN48 



;=>jump into middle 

jpreserve X 

;and blank 

;get count for CH 

;save for left edge check 

;count=WNDWDTH-Y-1 

isave CH counter 

;div CH by 2 for half pages 



irestore original CH 
;get starting page 



;iff WNDLFT odd, starting byte odd 
;get blankity blank 
;5tarting page is 1 (default) 
;else do page 2 

;now do page 1 

;all done 

;forward 2 columns 

;next CH 

;not done yet 

; restore X 

; and exit 

;disable typeahead 

;and external interrupts 
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CC0B: 

CC0B: 

CC0B: 

CCfSB: 

CCBB: 

CC0B: 

CCBB: 

CC0B: 

CC0B: 

CC0B: 

CC0B:AD 

CC0E!29 

CC10:D0 

CC12: 

CC12:20 

CC15:48 

CCie:49 

CC18:20 

CC1B:e8 

CC1C:60 

CC1D: 

CC1D: 

CC1D: 

CC1D: 

CC1D: 

CC1D: 

CC1D: 

CC1D:5A 

CC1E:20 

CC21 :AD 

CC24: 10 

CC26:8D 

CC29:98 

CC2A:45 

CC2C:6A 

CC2D:B0 

CC2F:AD 

CC32:C8 

CC33:98 

CC34 

CC35 

CC3e:B1 

CC38:8D 

CC3B:80 

CC3D:B1 

CC3F:2C 

CC42: 10 

CC44:C9 

CC46:B0 

CC48:09 

CC4A:7A 

CC4B!60 

CC4C: 

CC4C: 

CC4C: 

CC4C: 

CC4C: 

CC4C! 



FB 04 
10 

0A CC1C 
CC12 
ID CC 

80 
B3 C3 



:4A 
:A8 



9D CC 
IF C0 
17 CC3D 
01 C0 

20 

04 CC33 
55 C0 



28 

54 C0 

02 CC3F 

28 

IE C0 

06 CC4A 

20 

02 CC4A 

40 



146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

158 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 



PASINVERT is used by Pascal to display the cursor. Pascal 
normally leaves the cursor on the screen at all times. It 
is fleetingly removed while a character is displayed, then 
promptly redisplayed. CTL-F and CTL-E, respectively, 
disable and enable display of the cursor when printed using 
the Pascal 1.1 entry point (PWRITE). Screen I/O is 
significantly faster when the cursor is disabled. This 
feature is supported by Pascal 1.2 and later. 



PASI 



INVE 



INVX 

* PI 

* 40 

* If 

* ch 

* is 



NVERT LDA 


VMODE 


AND 


#M. CURSOR 


BNE 


INVX 


RT EQU 


« 


JSR 


PICKY 


PHA 




EOR 


#$80 


JSR 


STORY 


PLA 




RTS 





;Called by pascal to 

; display cursor 

;=>cursor off, don't Invert 

iload Y and get char 

jFLIP INVERSE/NORMAL 
; stuff onto screen 
;for RDCHAR 



CK lifts a character from the screen in either 
or 80 columns from the current cursor position, 
the alternate character set is switched in, 
racter codes $0-$1F are returned as $40-$5F (which 
what must have been originally printed to the location). 



PICKY 



PICK2 



PICK1 
PICK3 



PICK4 



PHY 




JSR 


GETCUR 


LDA 


RD80VID 


BPL 


PICK1 


STA 


SET80COL 


TYA 




EOR 


WNDLFT 


RQR 


A 


BCS 


PICK2 


LDA 


TXTPAGE2 


INY 




TYA 




LSR 


A 


TAY 




LDA 


CBASL>,Y 


STA 


TXTPAGE1 


BRA 


PICK3 


LDA 


(BASL),Y 


BIT 


ALTCHARSET 


BPL 


PICK4 


CMP 


#$20 


BCS 


PICK4 


ORA 


#$40 


PLY 




RTS 





save Y 

get newest cursor into Y 

80 columns? 

= >no 

force 80STDRE if 80 columns 

C=1 if char in main RAM 
get low bit into carry 
=>5tore in main memory 
else switch in page 2 
for odd left, aux bytes 
divide pos'n by 2 

and use as offset into line 

pick charac ter 

80 columns, switch in 

skip 40 column pick 

pick 40 column char 

only allow if alt set 



;restore real Y 



* SHOWCUR displays either a checkerboard cursor, a solid 

* rectangle, or the current cursor character, depending 

* on the value of the CURSOR location. 0=inverse cursor, 

* $FF"checkerboard cursor, anything else is displayed 

* after being anded with inverse mask. 
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CC4C; 
CC4Ci 
CC4F; 
CC51 ; 
CC53i 
CC53i 
CCSSi 
CC53: 
CC56i 
CC57! 
CC5A: 
CCSB: 
CC5C: 
CC5E: 
CC5F! 
CC60: 
CC62: 

cces: 

CC67: 

CC68: 

CC6B: 

CCGE: 

CC6F: 

CC70: 

CC70: 

CC70: 

CC70: 

CC70: 

CC70: 

CC70: 

CC70: 

CC70: 

CC70: 

CC71 : 

CC73: 

CC75: 

CC77: 

CC79: 

CC7B: 

CC7D: 

CC7F: 

CC82: 

CC84: 

CC85: 

CC88: 

CCSB: 

CC8E 

CC8F: 

CC92: 

CC93: 

CC94: 

CC97: 

CC99: 

CC9C: 

CC9D: 

CC9D: 

CC9D: 

CC9D: 



AC FB 07 

D0 02 CC53 

80 BF CC12 



20 ID CC 

48 

8D 7B 07 

98 



C8 

F0 0D 

7A 

5A 

30 

AD 

09 7F 

4A 

2D FB 07 

20 B3 C3 

68 

60 



CC6B 



09 

IE C0 



CC6B 



48 

E6 4E 

D0 1E 

A5 4F 

E6 4F 

45 4F 

29 10 

F0 14 

AD FB 07 

F0 0F 

5A 

20 ID CC 

AC 7B 07 

8D 7B 07 

98 

20 B3 C3 

7A 

68 

20 E6 C8 

10 26 

4C BD CF 

EA 



CC93 



CC93 



CC93 



CCBF 



204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 



SHOWCUR 



LDY CURSOR 
BNE NDTINV 
BRA INVERT 



what ' 5 my type? 

=>not inverse 

else invert the char (exit) 



* Exit with cha 



in accumulator 



NOTINV 



N0TINV1 
NDTINV2 



JSR 
PHA 
STA 
TYA 
INY 
BEQ 
PLY 
PHY 
BMI 
LDA 
ORA 
LSR 
AND 
JSR 
PLA 
RTS 



PICKY 



NXTCUR 



N0TINV2 



N0TINV2 

ALTCHARSET 

#$7F 

A 

CURSOR 

STORY 



get char on screen 
preserve it 
save for update 
test for checkerboard 

=>checkerboard , display it 
test char 

don't need inverse 
mask = $7F if alternate 

character se t , 
$3F if normal char set 
form char to display 
and display it 
restore real char 



The UPDATE routine increments the random seed. 
If a certain value is reached and we are in Apple II 
mode, the blinking check cursor is updated. If a 
key has been pressed, the old char is replaced on the 
screen, and we return with BMI. 

NOTE: this routine used by COMM firmwarel! 



UPDATE 



UD2 



CLRKBD 



PHA 
INC 
BNE 
LDA 
INC 
EOR 
AND 
BEQ 
LDA 
BEQ 
PHY 
JSR 
LDY 
STA 
TYA 
JSR 
PLY 
PLA 
JSR 
BPL 
JMP 
NOP 



RNDL 

UD2 

RNDH 

RNDH 

RNDH 

#$10 

UD2 

CURSOR 

UD2 

PICKY 

NXTCUR 

NXTCUR 

STORY 



XBITKBD 
GETCURX 
CLRKBD2 



; save char 
jupdate seed 
;check for key 



need to update cursor? 

=>no, check for key 

what cursor are we using? 

=>//e cursor, leave alone 

+ Save Y 

get the character into A 

get next character 

save next next character 

and print it 

+ 

get real char 

was a key pressed? 

=>no key pressed 

+ restore old key look for key and exit 

+ Keep code alignedkey 



* ON CURSORS. Whenever the horizontal cursor position is 

* needed, a call to GETCUR is done. This is the equivalent 

* of a LDY CH. This returns the current cursor for II and 



102 



/Vppenoix A; l-'imiwi 



15 SCROLLING 



CC9D 








CC9D 








CC9D 








CC9D 








CC9D 








CC9D 








CC9D 








CC9D 








CC9D 








CC9D 








CC9D 








CC9D 








CC9D 


A4 


24 




CC9F 


CC 


7B 


04 


CCA2 


D0 


03 


CCA7 


CCA4 


AC 


7B 


05 


CCA7 


C4 


21 




CCA9 


90 


02 


CCAD 


CCAB 


A0 


00 




CCAD 








CCAD 








CCAD 








CCAD 








CCAD 


8C 


7B 


05 


CCB0 


2C 


IF 


C0 


CCB3 


10 


02 


CCB7 


CCB5 


A0 


00 




CCB7 


84 


24 




CCB9 


8C 


7B 


04 


CCBC 


AC 


7B 


05 


CCBF 


60 






CCC0 
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262 * //e mode, which may have been poked as either CH or OURCH. 

263 * 

264 • It also forces CH and DLDCH to if 80 column mode active. 

265 * This prevents LDY CH, STA (BASL>,Y from trashing non screen 

266 * memory. It works just like the //e. 

267 * 

268 * All routines that update the cursor's horizontal position 

269 * are here. This ensures that the newest value of the cursor 

270 * is always used, and that 80 column CH is always 0. 

271 * 

272 * GETCUR only affects the Y register 

273 * 



LDY 


CH 


CPY 


QLDCH 


BNE 


GETCUR1 


LDY 


OURCH 


CPY 


WNDWDTH 


BCC 


GETCUR2 


LDY 


*B 



if CH=OLDCH, then 

OURCH is valid 

=>el5e CH must have been changed 

use OURCH 

is the value too big 

=>no, fits just fine 

else force CH to 



274 GETCUR 

275 

276 

277 

278 GETCUR1 

279 

280 

281 * 

282 * GETCUR2 is commonly used to set the current cursor 

283 * position when Y can be used. 

284 * 

update real cursor 
80 columns? 
=>no, set all cursors 
yes, peg CH to 



;get cursor 
; and fly. . . 



285 


GETCUR2 


STY 


OURCH 


286 




BIT 


RD80VID 


287 




BPL 


GETCUR3 


288 




LDY 


"0 


289 


GETCUR3 


STY 


CH 


290 




STY 


OLDCH 


291 




LDY 


OURCH 


292 


GETCURX 


RTS 
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CCCB 
CCC0 

ccca 

CCCB 

CCCB 

CCCB 

CCCB 

CCCB 

CCCB 

CCCB 

CCCB 

CCCB 

CCCB 

CCCB 

CCCB 

CCCB 

CCCB 

CCCB 

CCCB 

CCCB 

CCC3 

CCC4 

CCC7 

CCC8 

CCCA 

CCCC 

CCCC 

CCCC 

CCCC 

CCCC 

CCCC 

CCCC 

CCCC 

CCCC 

CCCF 

CCDB 

CCD2 

CCD4 

CCD7 

CCDA 

CCDC 

CCDD 

CCEB 

CCE3 

CCE5 

CCE8 

CCEA 

CCEB 

CCED 

CCED 

CCED 

CCED 

CCED 

CCED 

CCEF 

CCF2 

CCFS 

CCF8 



BC CD 
58 CD 



B8 

21 



CCED 



2B 
48 
29 
49 
2B 
20 
1B 
68 
2B 
2B 
AB 
D9 
FB 
88 
1B F8 



1D CC 

8B 

AB 

B3 C3 

E6 C8 

FB CCD7 

99 CC 

9B C3 

13 

F8 CC 

D6 CCCB 

CCES 



A9 
1C 
2B 
4C 



B8 

FB B4 
BC FD 
44 FD 



Lft Arrow - CURSOR LEFT (stay escape) 
Rt Arrow - CURSOR RIGHT Cstay escape) 
M, Dn Arrow - CURSOR DOWN Cstay escape) 
4 - GOTO 4B COLUMN MODE 
8 - GOTO 80 COLUMN MODE 
CTL-D- Disable the printing of control chars 
CTL-E- Enable the printing of control chars 
CTL-Q- QUIT CPR#B/IN#B) 



2 

3 

4 

S 

6 

7 

8 

9 
IB 
1 1 
12 
13 
14 
15 
16 
17 
18 
19 

20 * 

21 ESC3 
22 
23 
24 
25 
26 

27 * 
28 
29 
30 
31 
32 
33 
34 

35 NEWESC 
36 
37 
38 
39 

40 ESC0 
41 
42 
43 
44 

45 ESC1 

46 ESC2 
47 
48 
49 
50 • 

51 

52 

53 

54 

55 ESCRDKEY 

56 

57 

58 

59 * 



START AN ESCAPE SEQUENCE: 
WE HANDLE THE FOLLOWING ONES: 
@ - HOME 4 CLEAR 

- Cursor right 

- Cursor left 

- Cursor down 

- Cursor up 

- CLR TO EOL 

- CLR TO EOS 



I, Up Arrow - CURSOR UP Cstay escape) 



LDA 
PHY 
JSR 
PLY 
CPY 
BCS 



ESCCHAR.Y 
CTLCHAR 



#YHI 
ESCRDKEY 



;GET CHAR TO "PRINT" 

isave index 

;execute character 

; restore index 

; If Y<YHI, stay escape 

;=>exit escape mode 



This is the entry point called by RDKEY iff escapes 

are enabled and an escape is encountered. The next 
keypress is read and processed. If it is a key that 

terminates escape mode, a new key is read by ESCRDKEY. 

If escape mode should not be terminated, NEWESC Is 
cal led again . 

JSR PICKY jget current character 

PHA ;and save it 

AND #$80 ;save invert bit 

EOR #$AB ;make it inverted "+" 

JSR STORY ;and pop it on the screen 

JSR XBITKBD ;check for keystroke 

BPL ESCB 

FLA ;get old char 

JSR CLRKBD ;re5tore char, get key 

JSR UPSHIFT ;upshift esc char 

LDY #ESCNUM ;COUNT/INDEX 

CMP ESCTAB,Y ;IS IT A VALID ESCAPE' 

BEQ ESC3 =>ye3 

DEY 

BPL ESC2 ;TRY 'EM ALI 



End of escape sequence, read next character. 

This is Initially called by RDCHAR which is usually 

by GETLN to read characters with escapes enabled. 



called 



LDA 
TRB 
JSR 
JMP 



#M.CTL 
VMODE 
RDKEY 
NOESCAPE 



;enable escape sequences 

; read char with escapes 

;got the key, disable escapes 



K)4 
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16 ESCAPE 

CCF8: 

CCF8: 

CCF8: 

CCF8: 

CCF8: 

CCF8: 

CCF8: 

CCF8: 

CCF8: 

CCF8: 

CCF8: 

CCF8: 

CCF8: 

CCF8: 

CCF8: 

CCF8:CA 

CCF9:88 

CCFA:CD 

CCFB:8B 

CCFC:95 

CCFD:8A 

CCFE:C9 

CCFF:CB 

CD00: 

CD00:C2 

CD01 :C3 

CD02:C4 

CD03:C1 

CD04:C0 

CD0S:CS 

CD0e:C6 

CD07:B4 

CD03:B8 

CD09:91 

CD0A;84 

CD0B:85 

CD0C: 

CD0C: 

CD0C: 

CD0C: 

CD0C:88 

CD0D:88 

CD0E:8A 

CD0F:9F 

CD10:9C 

CD11 :8A 

CD12:9F 

CD13:9C 

CD1<1:88 

CD15: 

CD15:8A 

CD16:9F 

CD17:9C 

CD18:8C 

CD19:9D 

CD1A:8B 

CD1B:91 

CD1C:92 



CCF8 



0008 



0013 
CD0C 



CD15 



Appl 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

11 1 

112 

113 

114 

115 

116 

117 
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* When in escape mode, the characters in ESCTAB (high) 

* bits set), are mapped into the characters in ESCCHAR. 

* These characters are then executed by a call to CTLCHAR. 

* 

* CTLCHAR looks up a character in the table starting at 

* CTLTAB. It uses the current index as an index into the 

* table of routine addresses, CTLADR . If the character is 

* not in the table, a call to VID0UT1 is done in case the 

* character is BS , LF, CR, or BEL. 
« 

* NOTE: CTLDN and CTLOFF are not accessible except through 

* and escape sequence 



ESCTAB 



YHI 



ESCNUM 



ESCCHAR 



CTLTAB 



MSB 
EQU 
ASC 
DFB 
ASC 
DFB 
DFB 
DFB 
ASC 
ASC 
EQU 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
ASC 
DFB 
DFB 
DFB 

EQU 

EQU 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
EQU 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 
DFB 



SCTAB 



ON 

* 

'J' 
$88 
'M' 
$8B 
$95 
$8A 

I 

K 

B 
C 
D 
A 

@ 

E 

F 

4 

8 
$91 
$84 
$85 



•-ESCTAB-1 



$88 
$88 
$8A 
$9F 
$9C 
$8A 
$9F 
$9C 
$88 

$8A 
$9F 
$9C 
$8C 
$9D 
$8B 
$91 
$92 



; high bit on 

left Cstay esc) 

left arrow (stay esc) 

down (stay esc) 

up arrow (stay esc) 

right arrow (stay esc) 

down arrow (stay esc) 

up (stay esc) 

right (stay esc) 



left 




down 




up 




right 




formfeed 




clear EOL 




clear EDS 




40 column mode 




80 column mode 




CTL-Q = QUIT 




CTL-D ;ctl char 


disable 


CTL-E ictl char 


enable 



list of escape chars 
J: BS (stay esc) 
<-:BS (stay esc) 
M: LF (stay esc) 
UP:US (stay esc) 
->;FS (stay esc) 
DN: LF (stay esc) 
I : UP (stay esc) 
K: RT (stay esc) 
ESC-B = BS 

control characters 



list c 


f con 


ESC-C 


= DN 


ESC-D 


= UP 


ESC-A 


= RT 


@: Formfeed 


E: CLREQL 


F: CLREOP 


SET40 




SET80 
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CD1D:9B 
CD1E:04 
CD IF. -05 
CDSa: 
CD20:85 
CD21 :86 
CD22:8E 
CD23:8F 
CD24:96 
CD2S:97 
CD26!98 
CD27:99 
CD28:9A 
CD29:9B 
CD2fi: 
CD2A: 
CD2A: 
CD2A: 

CD2A:66 FC 
CD2C! 1A FC 
CD2E:AB FB 
CD30:58 FC 
CD32:9C FC 
CD34!42 FC 
CD3e:C0 CD 
CD38:BE CD 
CD3A:4S CE 
CD3C!91 CD 
CD3E:9S CD 
CD40:89 CD 
CD42:8D CD 

CD44:B0 CD 

CD46:B7 CD 

CD48:30 CB 

CD4A:35 CB 

CD4C!9F CD 

CD4E:A5 CD 

CD50:A0 FC 

CDB2:99 CD 

CDB4: 

CD54: 

CD54: 

CD54: 

CD54: 

CD54: 

CDB4: 

CDB4: 

CDB4: 

CDB4: 

CDB4: 

CDB4: 

CDB4: 

CDB4:2C CI CB 

CDB7:B0 

CDB8: 

CDB8:B8 

CDB9:DA 

CDBArSD F8 04 
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118 DFB 

119 DFB 

120 DFB 

121 * escape chars 

122 DFB 

123 DFB 

124 DFB 
12B DFB 

126 DFB 

127 DFB 

128 DFB 

129 DFB 

130 DFB 

131 DFB 

132 • 

0014 133 CTLNUM EQU 

134 » 

CD2A 135 CTLADR EQU 

136 DW 

137 DW 

138 DW 

139 DW 

140 DW 

141 DW 

142 DW 

143 DW 

144 DW 
14B DW 
146 DW 
1.47 DW 

148 DW 

149 DW 
1B0 DW 
1B1 DW 
152 DW 
1B3 DW 
154 DW 
IBB DW 

156 DW 

157 • 

158 MSB 

159 • 

160 * CTLCHAR execu 

161 * accumulator. 

162 * is always exe 

163 * firmware, the 

164 * and M.CTL2 is 

165 • 

166 * Note: This ro 

167 » is active. Th 

168 * firmware is i 

169 * 

170 CTLCHAR0 BIT 

171 DFB 

172 » 

173 CTLCHAR CLV 

174 PHX 
17B STA 



$9B 
$04 
$0B 
end here 
$85 
$86 
$8E 
$8F 
$96 
$97 
$98 
$99 
$9A 
$9B 

•-CTLTAB- 



LF 

UP 

NEWADV 

HOME 

CLREOL 

CLREOP 

SET40 

SET80 

QUIT 

CTLOFF 

CTLON 

X. CUR. ON 

X. CUR. OFF 

X.SO 

X.SI 

SCROLLDN 

SCROLLUP 

MOUSDFF 

HOMECUR 

CLRLIN 

MOUSDN 

ON 

tes the contr 
If it is cal 

cuted . I f i t 
character is 
clear . 

utine is only 
e Monitor RDM 
nact i ve . 

SEV1 
$B0 



QUIT 

Disable controls (escape only) 

Enable controls (escape only) 



;X.CUR.ON 




!X. CUR. OFF 




; Normal 




; I nver se 




; Scro 1 1 down 




;Scroll up 




;mou5e chars 


off 


;home cursor 




; c 1 ear 1 ine 




;mouse chars 


on 



TEMPI 



move cursor down 
move cursor up 
forward a space 
home cursor, clear screen 
clear to end of line 
clear to end of page 
set 40 column mode 
set 80 column mode 
Quit video firmware 
disable //e control chars 
enable //e control chars 
turn on cursor (pascal) 
turn off cursor (pascal) 
normal video 
inverse video 
scroll down a line 
scroll up a 1 ine 
disable mouse characters 
move cursor home 
clear current line 
enable mouse characters 



ol character in the 

led by Pascal, the character 
is called by the video 
executed if M.CTL is set 



called if the video firmware 
calls VID0UT1 if the video 



;set V (use M.CTL) 

;BVC opcode (never taken) 

iAlways do control character 

; save X 

; temp save of A 
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CDBD:20 


04 


FC 




176 






JSR 


VIDQUT1 


;try to execute CR, LF , BS , 


or BEL 


CD60:CD 


F8 


04 




177 






CMP 


TEMPI 


; if ace has changed 




CD63:D0 


0A 




CD6F 


178 






BNE 


CTLDONE 


; then function done 




CD65:A2 


14 






179 






LDX 


#CTLNUM 


;number of CTL chars 




CD67:DD 


15 


CE 




180 


FNDCTL 


CMP 


CTLTAB.X 


; is It in table 




CD6A:F0 


05 




CD71 


181 






BEQ 


CTLGO 


i=>ye5, should we execute? 




CD6C:CA 








182 






DEX 




; e 1 se chec k next 




CD6D: 10 


F8 




CD67 


183 






BPL 


FNDCTL 


; = > t ry next one 




CD6F:FA 








184 


CTLDDNE 


PLX 




jrestore X 




CD70:60 








185 






RTS 




;and return 




CD71 : 








186 


* 












CD71:48 








187 


CTLOO 


PHA 




; save A 




CD72:S0 


ec 




CD80 


188 






BVC 


CTLG01 


;V clear, always do (pascal 


escape) 


CD74:AD 


FB 


04 




189 






LDA 


VMODE 


icontrols are enabled iff 




CD77:29 


28 






190 






AND 


#M.CTL+M.CTL2 


; M.CTL = 1 and 




CD79:49 


08 






191 






EDR 


#M.CTL 


i M.CTL2 = 




CD7B:F0 


03 




CD80 


192 






BEQ 


CTLG01 


;=>they're enabled!! 




CD7D:68 








193 


CGO 


PLA 




irestore A 




CD7E:FA 








194 






PLX 




irestore X 




CD7F;60 








195 






RTS 




; and return 




CD80! 








196 


tt 












CD80;8A 








197 


CTLG01 


TXA 




;double X as index 




CD81 :0A 








198 






ASL 


A 


;into address table 




CD82:AA 








199 






TAX 








CD83:68 








200 






PLA 




jrestore A 




CD84;20 


A4 


FC 




201 






JSR 


CTLDO 


;execute the char 




CD87:FA 








202 






PLX 




srestore X 




CD88:60 








203 






RTS 




; and return 




CD89: 








204 


t 












CD89: 








205 


* 


X.CUR. 


ON " Allow Pascal cursor display 




CD89: 








206 


« 


X.CUR. 


OFF = D 


isable Pascal cursor display 




CD89: 








207 


« 


Cursor 


is not 


displayed during call, so it will 




CD89: 








208 


« 


be r Ic 


ht when 


"redi splayed" . 






CD89: 








209 


« 


Note: 


Though 


these commands 


are executed from BASIC, 




CD89: 








210 


* 


they h 


ave no 


effect on firmware operation. 




CD89: 








211 


« 












CD89:A9 


10 






212 


X 


CUR. ON 


LDA 


*M. CURSOR 


jclear cursor bit 




CD8B:80 


0E 




CD9B 


213 






BRA 


CLRIT 






CD8D: 








214 


# 












CD8D:A9 


10 






215 


X 


CUR. OFF LDA 


#M. CURSOR 


;set cursor bit 




CD8F:80 


10 




CDA1 


216 






BRA 


SETIT 






CD91 : 








217 


# 












CD91 : 








218 


# 


The control c 


haracters other 


than CR,LF,BEL,BS 




CD91 : 








219 


« 


are normally 


enabled when vl 


deo firmware is active. 




CD91 : 








220 


« 


They can be d 


Isabled and ena 


bled using the ESC-D 




CD91 : 








221 


* 


and ESC-E escape sequences. 






CD91 : 








222 


# 












CD91 :A9 


20 






223 


CTLOFF 


LDA 


#M.CTL2 


;disable control characters 




CD93:80 


0C 




CDA1 


224 






BRA 


SETIT 


;by setting M.CTL2 




CD95: 








225 


* 












CD95:A9 


20 






226 


CTLDN 


LDA 


#M.CTL2 


jenable control characters 




CD97:80 


02 




CD9B 


227 






BRA 


CLRIT 


;by clearing M.CTL2 




CD99: 








228 


« 












CD99: 








229 


tt 


Enable 


mouse 


text by c lear in 


g M. MOUSE 




CD99: 








230 


# 












CD99:A9 


01 






231 


MOUSQN 


LDA 


#M. MOUSE 






CD9B: 1C 


FB 


04 




232 


CLRIT 


TRB 


VMODE 






CD9E:60 








233 






RTS 









16 ESCAPE 


Apple //c Vi 


deo firmware 


CD9F: 


234 * 






CD9F: 


235 • Diaabl 


E mouse text bv si 


CD9F: 


236 * 






CD9F:A9 01 


237 MOUSOFF 


LDA 


'M. MOUSE 


CDA1 :0C FB 04 


238 SETIT 


TSB 


VMODE 


CDA4:60 


239 


RTS 




CDAB: 


240 • 






CDA5: 


241 * EXECUTE HOME 




CDA5: 


242 * 






CDA5:20 E9 FE 


243 HDMECUR 


JSR 


CLRCH 


CDA8:A8 


244 


TAY 




CDA9:A5 22 


24S 


LDA 


WNDTOP 


CDAB:8S 2S 


246 


STA 


CV 


CDAD:4C 88 FC 


247 


JMP 


NEWVTAB2 


CDB0: 


248 * 






CDB0: 


249 • EXECUTE "NORMAL VIDEO" 


CDB0: 


250 * 






CDB0:20 84 FE 


251 X.SO 


JSR 


SETNORM 


CDB3:A9 04 


252 


LDA 


*M. VMODE 


CDB5:80 E4 CD9B 


253 


BRA 


CLRIT 


CDB7: 


254 * 






CDB7: 


255 • EXECUTE 


: "INVERSE VIDEO" 


CDB7: 


256 * 






CDB7:20 80 FE 


257 X.SI 


JSR 


SETINV 


CDBA:A9 04 


258 


LDA 


*M. VMODE 


CDBC:80 E3 CDA1 


259 


BRA 


SETIT 


CDBE: 


260 • 






CDBE: 


261 * EXECUTE 


'40COL MODE' or 


CDBE: 


262 • 






CDBE: 38 


263 SET80 


SEC 




CDBF:90 


264 


DFB 


$90 


CDC0: 18 


265 SET40 


CLC 




CDC1:2C FB 04 


266 


BIT 


VMODE 


CDC4: 10 54 CE1A 


267 


BPL 


SETX 


CDC6:08 


268 


PHP 




CDC7:20 1B CE 


269 


JSR 


HOOKITUP 


CDCA:28 


270 


PLP 




CDCB:80 08 CDD5 


271 


BRA 


UJIN0 


CDCD: 


272 * 






CDCD: 


273 » CHK80 is call 


ed by PR#0 


CDCD: 


274 * 80. 0th 


erwise 


the window 


CDCD: 


275 * 






CDCD:2C IF C0 


276 CHK80 


BIT 


RD80VID 


CDD0:10 48 CE1A 


277 


BPL 


SETX 


CDD2: 


278 • 






CDD2;18 


279 WIN40 


CLC 




CDD3:B0 


280 


DFB 


$B0 


CDD4:38 


281 WIN80 


SEC 




CDD5:64 22 


282 WIN0 


STZ 


WNDTOP 


CDD7:2C 1A C0 


283 


BIT 


RDTEXT 


CDDA:30 04 CDEB 


284 


BMI 


WIN1 


CDDC:A9 14 


285 


LDA 


*20 


CDDE:85 22 


286 


STA 


WNDTOP 


CDE0:2C IF C0 


287 WIN1 


BIT 


RD80VID 


CDE3:08 


288 


PHP 




CDE4:B0 07 CDED 


289 


BCS 


WIN2 


CDE6:10 0A CDF2 


290 


BPL 


WIN3 


CDE8:20 53 CE 


291 


JSR 


SCRN84 



31-MAY-85 



M. MOUSE 



PAGE 55 



;move cursors to far left 
;(probably not needed) 
;and to top of window 

;then set base address, OURCV 



;set INVFLG to $FF 

; then clear inverse mode bit 



;set INVFLG to $3F 

;then set inverse mode bit 



'80COL MODE' : 

;flag an 80 column window 

iBCC opcode (never taken) 

;flag a 40 column window 

; but ... is it pascal? 

;=>ye5, don't execute 

;save window size 

;COPYROM if needed, set I/O hooks 

;and get 40/80 

; =>5et window 

to convert to 40 if it was 
is left a jar . 

;don' t set 40 if 
;already 40 

;flag 40 column window 
iBCS opcode Cnever taken) 
;flag 80 column window 
;set window top now 
;for text or mi xed 
i = >text 

;used by 80<->40 conversion 

i80 columns now? 

jsave 80 or 40 

;=>80: convert if 40 

; =>40 : no convert 

;80: convert to 40 



i08 
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CDEB:80 

CDED:30 

CDEF:2B 

CDF2;20 

CDF5:98 

CDF6: 18 

CDF7:65 

CDF9:28 

CDFArBB 

CDFC;C9 

CDFE:9B 

CE00;A9 

CE02:20 

CE0S:A5 

CE07:20 

CE0A: 

CE0A:64 

CE0C:A9 

CE0E:85 

CE10:A9 

CE12:2C 

CE1S: 1 

CE17:0A 

CE18:85 

CE1A:60 

CE1B: 

CE1B: 

CE1B: 

CE1B: 

CE1B: 

CE1B: 

CE1B: 

CE1B: 

CE1B:2C 

CE1E: 10 

CE20:20 

CE23:A9 

CE25:85 

CE27:A9 

CE29:85 

CE2B:A9 

CE2D:85 

CE2F:85 

CE31 : 

CE31 : 

CE31 : 

CE31 :9C 

CE34:A9 

CE36:2D 

CE39:09 

CE3B: 

CE3B: 

CE3B: 

CE3B:8D 

CE3E:9C 

CE41 :8D 

CE44:60 

CE4S: 



05 CDF2 
03 CDF2 
80 CE 
9D CC 



20 

06 

28 

02 

27 

EC FE 

25 

CI FB 

20 
18 
23 
28 

IF C0 



CE02 



CE02 



01 



21 



CE18 



7B 06 

11 CE31 

38 C3 

05 

38 

07 

36 

C3 

39 

37 



FB 07 
08 

FB 04 
81 



FB 04 
7B 06 
0F C0 



292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
308 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 



WIN2 
WIN3 



WIN4 



WNDREST 



NIN5 
SETX 



BRA 
BMI 
JSR 
JSR 
TYA 
CLC 
ADC 
PLP 
BCS 
CMP 
BCC 
LDA 
JSR 
LDA 
JSR 

STZ 
LDA 
STA 
LDA 
BIT 
BPL 
ASL 
STA 
RTS 



WIN3 
WIN3 
SCRN48 
GETCUR 



WNDLFT 

NIN4 

#40 

WIN4 

#39 

SETCUR 

CV 

BASCALC 

WNDLFT 

#«18 

WNDBTM 

#$28 

RD80VID 

WINS 

A 

WNDWDTH 



done converting 

= >80 : no conver t 

40 ; conver t to 80 

determine absolute CH 

In case the window setting 

was different 

pin to right edge If 
80 to 40 leaves cursor 
off the screen 



; se t new cursor 

•jSet new base address 

; f or left = (always) 

;Called by INIT and Pascal 

; and bot t om 

; set lef t , width , bo t torn 

;set width to 80 if 80 columns 



;set width 

;exit used by SET40/6 



* Turn on video firmware: 

» This routine is used by BASIC init, ESC-4, ESC-8 

* It copies the Monitor RDM to the language card 

* if necessary; it sets the input and output hooks to 

* $C30x; it sets all switches for video firmware operation 



HOOKITUP 



HOOKUP 
SETHODKS 



BIT 
BPL 
JSR 
LDA 
STA 
LDA 
STA 
LDA 
STA 
STA 



VFACTV 

VIDMODE 

COPYROM 

#>C3KEYIN 

KSWL 

#>C3CaUT1 

CSWL 

#<C3C0UT1 

KSWH 

CSWH 



;don't touch hooks 

;if video firmware already active 

iCopy RDM to LC? 

;5et up $C300 hooks 



* Now set the video firmware active 



VIDMODE STZ CURSOR 

LDA #M.CTL 

AND VMDDE 

ORA #M.PASCAL*M. MOUSE ; no pascal, mouse 



;set a solid inverse cursor 
jpreserve M . CTL bit 



* Pascal calls here to set its mode 
PVMDDE 



QX 



STA 
STZ 
STA 
RTS 



VMDDE ;set mode bits 

VFACTV j say video firmware active 

SETALTCHAR ;and set alternate char set 



AOpoIUii 



16 ESCAPE 

CE45: 

CE4S: 

CE45: 

CE45: 

CE45:2C FB 04 

CE48: 10 FA 

CE4A:2a D2 CD 

CE4D:20 89 FE 

CE50:4C 93 FE 



CE44 
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* QUIT converts the screen from 80 to 40 if necessary, 



3B0 
351 
352 

353 ♦ 

354 QUIT 
355 

358 

357 ZZQUIT 

358 



sets a 40 column window 
hooks CCDUT1 and KEVIN). 



BIT 
BPL 
JSR 
JSR 
JMP 



VMODE 

QX 

WIN40 

SETKBD 

SETVID 



and restores the normal I/O 



;no quitting from pascal 

first, do an escape 4 

do a IN#0 Cused by COMM) 

and a PR#0 



Appei 
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CES3: 

CE53: 

CESS; 

CE53: 

CE53: 

CE53:A2 

CE5S:8D 

CE58:8A 

CES9:20 

CESC:A0 

CESEiSA 

CE5F:98 

CE60:4A 

CE61:B0 

CE63!2C 

CESGrAB 

CE67:B1 

CE69:2C 

CE6C:7A 

CE6D:91 

CE6F:88 

CE70: 10 

CE72:CA 

CE73:30 

CE75:E'1 

CE77:B0 

CE79:8D 

CE7C:8D 

CE7F:e0 

CE80: 

CE80:A2 

CE82:8A 

CE83:20 

CE86:A0 

CE88:8D 

CE8B:B1 

CE8D:5A 

CE8E:48 

CE8F:98 

CE90:4A 

CE91 :B0 

CE93:8D 

CE96:A8 

CE97:68 

CE98:91 

CE9A:8D 

CE9D:7A 

CE9E 

CE9F 

CEA1:9a 

CEA3:2a 

CEA6:CA 

CEA7:30 

CEA9:E4 

CEAB:B0 

CEAD:8D 

CEB0:60 

CEB1 : 



17 

01 C0 



C1 FB 
27 



03 CE66 
55 C0 

28 
54 C0 

28 

EC CE5E 

04 CE79 
22 

DF CE58 
00 C0 
0C C0 

17 

C1 FB 



:C8 
:C0 



01 C0 
28 



03 CE96 
55 C0 



28 
54 C0 



28 

E8 CE8B 

CF CB 

04 CEAD 

22 

D5 CE82 

0D C0 



360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
38S 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
44 



» SCRN84 and SCRN48 convert screens between 40 & 80 cols. 

* WNDTDP must be set up to indicate the last line to 

* be done. All registers are trashed. 



SCRN84 
SCR1 

SCR2 
SCR3 



SCR4 



SCRN48 
SCR5 



SCR6 
SCR8 



SCR7 



LDX 
STA 
TXA 
JSR 
LDY 
PHY 
TYA 
LSR 
BCS 
BIT 
TAY 
LDA 
BIT 
PLY 
STA 
DEY 
BPL 
DEX 
BMI 
CPX 
BCS 
STA 
STA 
RTS 



*23 
SET80CDL 



BASCALC 
#39 



A 

SCR3 

TXTPA0E2 

CBASD.Y 
TXTPAGE1 

(BASD.Y 

SCR2 

SCR4 

WNDTOP 

SCR1 

CLR80COL 

CLR80VID 



SCR9 



LDX 
TXA 
JSR 
LDY 
STA 
LDA 
PHY 
PHA 
TYA 
LSR 
BCS 
STA 
TAY 
PLA 
STA 
STA 
PLY 
INY 
CPY 
BCC 
JSR 
DEX 
BMI 
CPX 
BCS 
STA 
RTS 
INCLUDE PASCAL 



#23 

BASCALC 
#0 

SET80CaL 
(BASD.Y 



A 

SCR7 

TXTPAGE2 



(BASD.Y 
TXTPAGE1 



#40 

SCR6 

CLRHALF 

SCR9 
WNDTDP 
SCR5 
SET80VID 



;start at bottom of screen 
;allow page 2 access 
icalc base for line 

;5tart at right of screen 

; save 40 index 

;div by 2 for 80 column index 



; even column, do page 2 
;get 80 index 
;get 80 char 
; restore page 1 
;get 40 index 



;do next 40 byte 
; do next line 
; =>done wi th setup 
; at top yet? 

;clear 80STORE for 40 columns 
;clear 80VID for 40 columns 



;start at bottom of screen 
;set base for current line 

;start at left of screen 

;enable page2 store 

;get 40 column char 

isave 40 column index 

; save char 

;div 2 for 80 column index 



; save on page 1 

;get 80 column index 
; now save character 



; f 1 ip page 1 

irestore 40 column index 

imove to the right 

; at right yet? 

;=>no, do next column 

;clear half of screen 

;else do next line of screen 

;=>done with top line 

5 at top yet? 

jconvert to 80 columns 

;Pascal support stuff 
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CEB1:AA 






3 


PSTATUS 


TAX 




CEB2:F0 08 




CEBC 


4 




BEQ 


PIORDY 


CEB4:CA 






5 




DEX 




CEBB:D0 07 




CEBE 


6 




BNE 


PSTERR 


CEB7:20 E6 


C8 




7 




JSR 


XBITKBD 


CEBA:10 04 




CEC0 


8 




BPL 


PNOTRDY 


CEBCiSS 






9 


PIDRDY 


SEC 




CEBD:60 






10 




RTS 




CEBE:A2 03 






11 


PSTERR 


LDX 


»3 


CEC0:18 






12 


PNOTRDY 


CLC 




CEC1:60 






13 




RTS 




CEC2: 






14 


# 






CEC2: 






15 


* PASCAL 


OUTPUT: 


CEC2: 






16 


# 






CEC2! 




CEC2 


17 


PWRITE 


EQU 


* 


CEC2:09 80 






18 




ORA 


*$80 


CEC<1:AA 






19 




TAX 




CECS:20 54 


CF 




20 




JSR 


PSETUP2 


CEC8:A9 08 






21 




LDA 


*M.GOXY 


CECA:2C FB 


04 




22 




BIT 


VMODE 


CECD:D0 2B 




CEFA 


23 




BNE 


GETX 


CECF:8A 






24 




TXA 




CED0:89 80 






25 




BIT 


*tee 


CED2:F0 45 




CF19 


26 




BEQ 


PCTL 


CED4:AC 7B 


05 




27 




LDY 


OURCH 


CED7:24 32 






28 




BIT 


INVFLG 


CED9:30 02 




CEDD 


29 




BMI 


PWR1 


CEDB:29 7F 






30 




AND 


*$7F 


CEDD:20 CI 


C3 




31 


PWR1 


JSR 


STORE 


CEE0:C8 






32 




INY 




CEE1:8C 7B 


05 




33 




STY 


OURCH 


CEE4:C4 21 






34 




CPY 


WNDWDTH 


CEEG:90 0C 


1 


CEF4 


35 




BCC 


PWRET 


CEE8!20 60 


C3 




36 




JSR 


SETROM 


CEEB:20 E9 


FE 




37 




JSR 


CLRCH 


CEEE:20 66 


FC 




38 




JSR 


LF 


CEF1:20 54 


C3 




39 


PWRITERET 


JSR 


RESETLC 


CEF4:20 0B 


CC 




40 


PWRET 


JSR 


PASINVERT 


CEF7:A2 00 






41 


PRET 


LDX 


*$0 


CEF9:60 






42 




RTS 




CEFfl: 






43 


* 






CEFA: 






44 


* HANDLE 


GDTOXY STUFF: 


CEFA: 






45 


« 






CEFA: 


CEFA 


46 


GETX 


EQU 


* 


CEFA:20 0B 


CC 




47 




JSR 


PASINVERT 


CEFD:8A 






48 




TXA 




CEFE:38 






49 




SEC 




CEFF:E9 A0 






50 




SBC 


#160 


CF01:2C FB 


06 




51 




BIT 


XCOORD 


CF04:30 2A 


CF30 


52 




BMI 


PSETX 


CF06: 






53 


« 






CF06: 






54 


* Set Y and do 


the GOTOXY 


CF06: 






55 


« 






CF06: 


CF06 


56 


GETY 


EQU 


# 


CF06:8D FB 


05 




57 




STA 


OURCV 


CF09:20 71 


CF 




58 




JSR 


PASCALC 


CF0C:AC FB 


06 




59 




LDY 


XCOORD 


CF0F:20 AD 


CC 




60 




JSR 


GETCUR2 
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;ls request code " 0? 

;=>ye5, ready for output 

jcheck for any input 

;=>bad request, return error 

; t es t keyboard 

; =>ro keystroked 

;good return 

jelse flag error 



; turn on high bit 

I save character 

jSETUP ZP STUFF, don't set ROM 

;ARE WE DOING GOTOXY? 

;=>Doing X or Y? 

; now check for control char 

; is it control ? 

;=>yes, do control 

;get horizontal position 

;check for inverse 

jnormal, go store it 

; now store it (erasing cursor) 
; INC CH 



;set cursor position to 



idisplay new_cursor 
;return with no error 



jturn off cursor 
;get character 

;MAKE BINARY 

;doing X? 

; =>ye5 , set it 



; ca 1 c base addr 
;set proper cursors 



112 
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CF12 
CF14 
CF17 
CF19 
CF19 
CF1C 
CF1D; 
CF1F; 
CF21 ; 
CF24i 
CF27: 
CF29! 
CF29; 
CF29i 
CF29: 
CF29: 
CF2B: 
CF2E: 
CF30: 
CF33: 
CF35: 
CF3S: 
CF35: 
CF35: 
CF38: 
CF3B: 
CF3D: 
CF3F: 
CF41: 
CF41 : 
CF41 : 
CF41 : 
CF41 : 
CF43: 
CF4e: 
CF49: 
CF4C: 
CF4F: 
CF51 : 
CF51 : 
CF51 : 
CFS4: 
CF56: 
CF59: 
CFSB: 
CFSD: 
CF5F: 
CF62: 
CF64: 
CF66! 
CF69: 
CF6C: 
CF6F: 
CF71 : 
CF71 : 
CF71 : 
CF71 : 
CF71 : 



A9 08 

1C FB 04 

80 DB CEF4 

20 0B CC 

8A 

C9 9E 

F0 08 CF29 

20 60 C3 

20 58 CD 

80 C8 CEF1 



CF29 
A9 08 
0C FB 04 
A9 FF 
8D FB 06 
80 BF CEF4 



20 54 CF 

20 D5 C8 

10 FB CF38 

29 7F 

80 B6 CEF7 



CF41 
A9 01 
20 3B CE 
20 51 CF 
20 D4 CD 
20 58 FC 
80 A0 CEF1 



CF51 



20 60 C3 
64 22 
20 0A CE 
A9 FF 
85 32 
A9 04 
2C FB 04 
F0 02 
46 32 
AC 7B 05 
20 AD CC 
AD FB 05 
85 25 



0A 



CF66 



61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

1 11 

1 12 

113 

114 

1 15 

1 16 

117 

118 



PCTL 



LDA 


#M.GDXY 


TRB 


VMODE 


BRA 


PWRET 


JSR 


PASINVERT 


TXA 




CMP 


*$9E 


BEQ 


STARTXY 


JSR 


SETROM 


JSR 


CTLCHAR 


BRA 


PWRITERET 



» START THE GOTOXY SEQUENCE: 



STARTXY 



PSETX 



EQU 
LDA 
TSB 
LDA 
STA 
BRA 



#M.GOXY 

VMODE 

*»FF 

XCODRD 

PWRET 



* PASCAL INPUT: 

PASREAD JSR 

GKEY JSR 

BPL 

AND 

BRA 



PSETUP2 

XRDKBD 

GKEY 

*»7F 

PRET 



PASCAL INITIALIZATION: 



PINIT 



PSETUP 



PSETUP2 



PS1 



EQU 
LDA 
JSR 
JSR 
JSR 
JSR 
BRA 

EQU 
JSR 
STZ 
JSR 
LDA 
STA 
LDA 
BIT 
BEQ 
LSR 
LDY 
JSR 
LDA 
STA 



*M. MOUSE 

PVMODE 

PSETUP 

WIN80 

HOME 

PWRITERET 



SETROM 

WNDTOP 

WNDREST 

#$FF 

INVFLG 

"M. VMODE 

VMODE 

PS1 

INVFLG 

OURCH 

GETCUR2 

OURCV 

CV 



; turn off gotoxy 

i->DaNE (ALWAYS TAKEN) 

;turn off cursor 

;get char 

;i5 it gotoXY? 

; =>yes , start it up 

;must switch in RDM for controls 

;EXECUTE IT IF POSSIBLE 

j=>display new cursor, exit 



; turn on gotoxy 

iset XCDORD to -1 

;set X 

;=>display cursor and exit 



SETUP ZP STUFF 
key pressed? 
=>not yet 
DROP HI BIT 
good exit 



;Set mode to pascal 

;without mouse characters 

;setup zero page for pascal 

;do 40->80 convert 

; home and clear screen 

;display cursor, set OURCH, OURCV. 



;5ave LC state, set ROM read 
; set top to 

;lnit either 40 or 80 window 
;assume normal text 

; 1 s It 



;no, make flag inverse 
;set all cursors 



Put BASCALC 
In the ROMs 



here so we don't have to switch 
for each character output. 



PASCALC 



ASL 
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CF72 
CF73 
CF74 
CF7B 
CF77 
CF79 
CF7B 
CF7C 
CF7D 
CF7F 
CF81 
CF82 
CF83 
CF85 
CF86 



:A8 

:4A 

:4A 

:29 as 

:09 04 

:85 29 

:98 

:6A 

:29 98 

:85 28 

:0A 

:0A 

:04 

:60 



28 



119 


TAY 




120 


LSR 


A 


121 


LSR 


A 


122 


AND 


#$03 


123 


ORA 


#$4 


124 


STA 


BASH 


125 


TYA 




126 


RDR 


A 


127 


AND 


#$98 


128 PASCLC2 


STA 


BASL 


129 


ASL 


A 


130 


ASL 


A 


131 


TSB 


BASL 


132 


RTS 





45 



Include moremlsc 



;calc base addr in BASL,H 
; for given 1 ine no . 

0<=llne no.<»$17 
arg=000ABCDE, generate 
BASH=000001CD 
and 
BASL=EABAB000 



;More random junk 



114 
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CF8G 
CF86 
CF86 
CF86 
CF8G 
CF86 
CF86 
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2 »»•»•••••»»«•«».»«..«««,,,,,»,«,,,,,,,», 

3 * 

4 * Here are more miscellaneous routines 

5 * stuffed here in a valiant effort to make other code aliqn 

6 * properly 

7 * 



CF86: 

CF86:83 8B 8B 
CF89:05 03 55 

CF8C:9E 0B 40 50 

CF94:CD C1 D8 D9 



10 * Various tables 

11 Irqtble dfb > 1 cbank2 , > Icbank 1 , > 1 cbank 1 

12 dfb >wrcardram, >rdcardram, > txtpage2 

14 comtbl dfb $9E , $0B , $40 , $50 , $ 16 , $0B , $0 1 , $00 

16 rtbl asc 'MAXYPS' 



CF9A: 

CF9A: 

CF9A: 

CF9A: 

CF9A: 

CF9A: 

CF9A: 

CF9A:20 60 C3 

CF9D:AD 16 C0 

CFA0:0A 

CFA1 :A0 01 

CFA3:B9 FE FF 

CFA6:8D 09 C0 

CFA9:99 FE FF 

CFAC:8D 08 C0 

CFAF:99 FE FF 

CFB2:88 

CFB3: 10 

CFB5:90 

CFB7:8D 09 C0 

CFBA:4C 54 C3 



CF9A 



EE 
03 



CFA3 
CFBA 



MDVEIRQ - This routine transfers the roms Interrupt vector intc 
both language cards 



•♦»»••»«»»«»»»«.,»»,,.,,,,,,»,, 



ovei rq 



18 

19 

20 

21 

22 

23 

24 m 

25 

26 

27 

28 

29 MIRQLP 

30 

31 

32 

33 

34 

35 

36 

37 

38 MIRQSTD 



■••••••••.«»«».«»«..,«,««,»,,,,,,,,,, 



««*«#«« 



equ 
JSR 
LDA 
ASL 
LDY 
LDA 
STA 
STA 
STA 
STA 
DEY 
BPL 
BCC 
STA 
JMP 



SETROM 

RDALTZP 

A 

*1 

IRQVECT.Y 

SETALTZP 

IRQVECT.Y 

SETSTD2P 

IRQVECT.Y 

MIRQLP 
MIRQSTD 
SETALTZP 
RESETLC 



RAM 



;Read ROM and Write to 
;Which language card? 
;C=1 if alternate card 
;Move two bytes 
;Get byte from ROM 
jSet alternate card 
;Store it in the RAM card 
; Se t main card 



;Go do the second byte 
;I5 the card set right? 
; No , it wasn' t 
;Clean up & go home 



CFDD 
CFBD 
CFBD 
CFBD 
CFBD 
CFBE 
CFC1 
CFC2 



5A 

20 B3 C3 

7A 

4C DS C8 



40 ••»»••»•••«•••»•»«••««»..»..»«.«,,,,,,,» 

41 * CLRKBD2 - Moved here from scrolling routines 

42 »»••••«•»••»»•••».»«»».»♦»«»..».»,«,,,»» 

CFBD 43 clrkbd2 equ * 

phy ;Now preserves Y 

Jsr story 

46 ply 

47 jmp xrdkbd 



44 
45 



CFC5 
CFC5 
CFC5 



49 «•••»«»•«»••#.»#•««.».,.,,,»,,«»,,,,,,,, 

50 » 

51 * LODKASC - addition to monitor input routine 



AnpeiKiix A: 



listing 



18 MDREMISC Video firmware Pascal stuff 31-MAY-85 PAGE 63 

CFC5: B2 * if a quote (') in input, the asoii of the next is input 

CFC5: 53 • like a hex number 

CFC5: 54 * 

QPQg , 55 #»«##»»#*»###•##»#»####»#########«***»## 

CFC5; CFC5 56 lookasc equ • 

CFC5:B0 11 CFD8 57 bcs ladig ;Wa5 char a hex digit? 

CFC7:C9 A0 58 omp *$A0 ils it a quote 

CFCSiDB 13 CFDE 59 bne ladone ;Done if not 

CFCBiBS 00 02 60 Ida inbuf.y ;Get next char 

CFCEiAS 07 61 Idx »1 ; f or shifting asc into A2L and A2H 

CFD0:C9 8D 62 cmp #$8D ;Wa5 it a cr? 

CFD2:F0 07 CFDB 63 beq lacr iGo handle cr 

CFD4:C8 64 iny ;Advance index into inbuf 

CFD5:4C 90 FF 65 jmp nxtbit ;Go shift it in 

CFD8:4C 8A FF 66 ladig jmp dig 

CFDB:4C A7 FF 67 lacr Jmp getnum 

CFDE:60 68 ladone rts 

CFDF: 0021 46 ds $D000-«,0 

NEXT OBJECT FILE NAME IS /BU I LD/F I RM . 1 

F800! F800 47 ORG F80RG 

F800: 48 INCLUDE AUT0ST1 ;F8 monitor rem 
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19 AUT0ST1 




Apple //c F8 


moni t 


or firmware 


F800:4A 




3 PLOT 


LSR 


A 


F801:08 




4 


PHP 




F802:20 47 


F8 


5 


JSR 


GBASCALC 


F805;28 




6 


PLP 




F80e:A9 0F 




7 


LDA 


#$0F 


F808:90 02 


F80C 


8 


BCC 


RTMASK 


F80A:69 E0 




9 


ADC 


*$E0 


F80C:8S 2E 




10 RTMASK 


STA 


MASK 


F80E:B1 26 




11 PLDT1 


LDA 


CGBASD.Y 


F810:45 30 




12 


EOR 


COLOR 


F812:25 2E 




13 


AND 


MASK 


F814:S1 26 




14 


EOR 


CGBASL>,Y 


F816:91 26 




IB 


STA 


(GBASD.Y 


F818:60 




16 


RTS 




F819: 




17 • 






F819:20 00 


F8 


18 HLINE 


JSR 


PLOT 


F81C:C4 2C 




19 HLINE1 


CPY 


H2 


F81E:B0 11 


F831 


20 


BCS 


RTS1 


F820:C8 




21 


INY 




F821:20 BE 


F8 


22 


JSR 


PL0T1 


F824:90 F6 


F81C 


23 


BCC 


HLINE1 


F826:69 01 




24 VLINE2 


ADC 


*t01 


F828:48 




2B VLINE 


PHA 




F829:20 00 


F8 


26 


JSR 


PLOT 


F82C:68 




27 


PLA 




F82D:C5 2D 




28 


CMP 


V2 


F82F:90 F5 


F826 


29 


BCC 


VLINE2 


F831 :60 




30 RTS1 


RTS 




F832: 




31 • 






F832;A0 2F 




32 CLRSCR 


LDY 


"izr 


F834:D0 02 


F838 


33 


BNE 


CLRSC2 


F836:A0 27 




34 CLRTOP 


LDY 


#$27 


F838:84 2D 




3B CLRSC2 


STY 


V2 


r-83A : 




36 ; 






F83A:A0 27 




37 


LDY 


*$27 


F83C:A9 00 




38 CLRSC3 


LDA 


**00 


F83E:8S 30 




39 


STA 


COLOR 


F840:20 28 


F8 


40 


JSR 


VLINE 


F843:88 




41 


DEY 




F844:10 F6 


F83C 


42 


BPL 


CLRSC3 


F846:60 




43 


RTS 




F847: 




44 * 






F847:48 




45 GBASCALC 


PHA 




F848:4A 




46 


LSR 


A 


F849:29 03 




47 


AND 


#$03 


F84B:09 04 




48 


DRA 


#$04 


F84D:8S 27 




49 


STA 


GBASH 


F84F:68 




50 


PLA 




F850:29 18 




B1 


AND 


#$18 


F852:90 02 


F856 


52 


BCC 


GBCALC 


F8S4:69 7F 




B3 


ADC 


#$7F 


F856:85 26 




54 GBCALC 


STA 


GBASL 


F858:0A 




55 


ASL 


A 


F859:0A 




56 


ASL 


A 


F85A:05 26 




57 


ORA 


GBASL 


F85C:8S 26 




58 


STA 


GBASL 


F8BE:60 




59 


RTS 




F85F: 




60 * 
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Y-CaORD/2 

SAVE LSB IN CARRY 

CALC BASE ADR IN GBASL, H 

RESTORE LSB FROM CARRY 

MASK $0F IF EVEN 

;MASK $F0 IF ODD 

DATA 
XOR COLOR 
AND MASK 
XOR DATA 
TO DATA 



PLOT SQUARE 
DONE? 

YES, RETURN 

NO, INCR INDEX CX-COORD) 
PLOT NEXT SQUARE 
ALNAYS TAKEN 
NEXT Y-COORD 

SAVE ON STACK 

PLOT SQUARE 



iDONE? 

; NO, LOOP. 



jMAX Y, FULL SCRN CLR 

;ALWAYS TAKEN 

;MAX Y, TOP SCRN CLR 

;STORE AS BOTTOM COORD 

FOR VLINE CALLS 

;RIGHTMOST X-COORD (COLUMN) 

iTOP COORD FDR VLINE CALLS 

;CLEAR COLOR CBLACK) 

;DRAW VLINE 

;NEXT LEFTMOST X-COORD 

;L0OP UNTIL DONE. 



jFOR INPUT 00DEFGH 

;GENERATE GBASH=00000 1 FG 
;AND GBASL=HDEDE000 
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F85F 


AB 


30 


F8ei 


18 




F8e2 


69 


03 


F864 


29 


0F 


F866 


85 


30 


F8e8 


0A 




F869 


0A 




F8eA 


0A 




F86B 


0A 




F86C 


05 


30 


F86E 


85 


30 


F870 


60 




F871 






F871 


4A 




F872 


08 




F873 


20 


47 F8 


F876 


B1 


26 


F878 


28 




F879 


90 


04 


F87B 


4A 




F87C 


4A 




F87D 


4A 




F87E 


4A 




F87F 


29 


0F 


F881 


60 




F882 






F882 


A6 


3A 


F884 


A4 


3B 


F88e 


20 


96 FD 


F889 


20 


48 F9 


F88C 


A1 


3A 


F88E 


A8 




F88F 


4A 




F890 


90 


05 


F892 


6A 




F893 


B0 


0C 


F895 


29 


87 


F897 


4A 




F898 


AA 




F899 


BD 


62 F9 


F89C 


20 


79 F8 


F89F 


D0 


04 


F8A1 


A0 


FC 


F8A3 


A9 


00 


F8A5 


AA 




F8A6 


BD 


A6 F9 


F8A9 


85 


2E 


F8AB 


29 


03 


F8AD 






F8AD 


85 


2F 


F8AF 


20 


35 FC 


F8B2 


F0 


18 


F8B4 


29 


8F 


F8B6 


AA 




F8B7 


98 




F8B8 


A0 


03 


F8BA 


E0 


8A 


F8BC 


FB 


0B 



ipp 



le //c F8 monitor firmware 
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F87F 



F897 



F8A1 



F8A5 



F8CC 



F8C9 



61 


NXTCOL 


LDA 


COLOR 


62 




CLC 




63 




ADC 


#$03 


64 


SETCOL 


AND 


*'$0F 


65 




STA 


COLOR 


66 




ASL 


A 


67 




ASL 


A 


68 




ASL 


A 


69 




ASL 


A 


70 




ORA 


COLOR 


71 




STA 


COLOR 


72 




RTS 




73 


* 






74 


SCRN 


LSR 


A 


75 




PHP 




76 




JSR 


GBASCALC 


77 




LDA 


(GBASD.Y 


78 




PLP 




79 


SCRN2 


BCC 


RTMSKZ 


80 




LSR 


A 


81 




LSR 


A 


82 




LSR 


A 


83 




LSR 


A 


84 


RTMSKZ 


AND 


#$0F 


85 




RTS 




86 


* 






87 


INSDS1 


LDX 


PCL 


88 




LDY 


PCH 


89 




JSR 


PRYX2 


90 




JSR 


PRBLNK 


91 




LDA 


(PCL.X) 


92 


INSDS2 


TAY 




93 




LSR 


A 


94 




BCC 


lEVEN 


95 




ROR 


A 


96 




BCS 


ERR 


97 




AND 


#»87 


98 


lEVEN 


LSR 


A 


99 




TAX 




100 




LDA 


FMTI.X 


101 




JSR 


SCRN2 


102 




BNE 


GETFMT 


103 


ERR 


LDY 


#$FC 


104 




LDA 


#$00 


105 


GETFMT 


TAX 




106 




LDA 


FMT2,X 


107 




STA 


FORMAT 


108 




AND 


#$03 


109 


i (0=1 


BYTE, 1 


=2 BYTE, 2= 


1 10 




STA 


LENGTH 


111 




JSR 


NEWDPS 


112 




BEQ 


GOTDNE 


1 13 




AND 


#$8F 


1 14 




TAX 




115 




TYA 




116 




LDY 


#$03 


117 




CPX 


#$8A 


118 




BEQ 


MNNDX3 



; INCREMENT COLOR BY 3 

;SETS C0L0R=17*A MOD 16 

;BOTH HALF BYTES OF COLOR EQUAL 



READ SCREEN Y-COORD/2 
SAVE LSB (CARRY) 
CALC BASE ADDRESS 
GET BYTE 

RESTORE LSB FROM CARRY 
IF EVEN, USE LO H 



;SHIFT HIGH HALF BYTE DOWN 
;MASK 4-BITS 



iPRINT PCL,H 



;FOLLOWED BY A BLANK 
;GET OPCODE 

jLable moved down 1 
;EVEN/ODD TEST 

;BIT 1 TEST 

iXXXXXXII INVALID OP 

;MASK BITS 

;LSB INTO CARRY FOR L/R TEST 

•,GET FORMAT INDEX BYTE 
■,R/L H-BYTE ON CARRY 

;SUBSTITUTE $FC FOR INVALID OPS 
;SET PRINT FORMAT INDEX TO 

; INDEX INTO PRINT FORMAT TABLE 
;SAVE FDR ADR FIELD FORMATTING 
;MASK FDR 2-BIT LENGTH 
3 BYTE) 

;get index for new opcodes 
; found a new op (or no op) 

;MASK FOR 1XXX1010 TEST 

; SAVE IT 

;OPCODE TO ft AGAIN 



118 
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App 


le //c F8 


moni t 


or firmware 


F8BE:4A 






119 


MNNDX1 


LSR 


A 


F8BF:90 08 




F8C9 


120 




BCC 


MNNDX3 


F8C1:4A 






121 




LSR 


A 


F8C2:4A 






122 


MNNDX2 


LSR 


A 


F8C3:09 20 






123 




QRA 


*$20 


F8C5:88 






124 




DEY 




F8C6:D0 FA 




F8C2 


125 




BNE 


MNNDX2 


F8C8:C8 






126 




INY 




F8C9:88 






127 


MNNDX3 


DEY 




F8CA:D0 F2 




F8BE 


128 




BNE 


MNNDX1 


F8CC:60 






129 


GQTDNE 


RTS 




F8CD: 






130 


• 






F8CD:FF FF 


FF 




131 




DFB 


$FF,$FF,$FF 


F8D0: 






132 


• 






F8D0:20 82 


F8 




133 


INSTDSP 


JSR 


INSDS1 


F8D3:48 






134 




PHA 




F8D4:B1 3A 






135 


PRNTDP 


LDA 


(PCL),Y 


F8D6:20 DA 


FD 




136 




JSR 


PRBYTE 


F8D9:fl2 01 






137 




LDX 


#$01 


F8DB:20 4A 


F9 




138 


PRNTBL 


JSR 


PRBL2 


F8DE:C4 2F 






139 




CPY 


LENGTH 


F8E0:C8 






140 




INY 




F8E1:90 F1 




F8D4 


141 




BCC 


PRNTDP 


F8E3:A2 03 






142 




LDX 


#$03 


F8E5:C0 04 






143 




CPY 


#$04 


F8E7:90 F2 




F8DB 


144 




BCC 


PRNTBL 


F8E9:68 






145 




PLA 




F8EA:A8 






146 




TAY 




F8EB:B9 C0 


F9 




147 




LDA 


MNEML.Y 


F8EE:85 2C 






148 




STA 


LMNEM 


F8F0:B9 00 


FA 




149 




LDA 


MNEMR.Y 


F8F3:8S 2D 






150 




STA 


RMNEM 


F8F5:A9 00 






151 


PRMN1 


LDA 


#$00 


r-8F7;A0 05 






152 




LDY 


#$05 


F8F9:06 2D 






153 


PRMN2 


ASL 


RMNEM 


F8FB:26 2C 






154 




ROL 


LMNEM 


F8FD:2A 






155 




RQL 


A 


F8FE:88 






156 




DEY 




F8FF:D0 F8 




F8F9 


157 




BNE 


PRMN2 


F901:69 BF 






158 




ADC 


#$BF 


F903:20 ED 


FD 




159 




JSR 


CQUT 


F90e:CA 






160 




DEX 




F907:D0 EC 




F8FS 


161 




BNE 


PRMN1 


F909:20 48 


F9 




162 




JSR 


PRBLNK 


F90C:A4 2F 






163 




LDY 


LENGTH 


F90E:A2 0G 






164 




LDX 


#$06 


F910:E0 03 






165 


PRADR1 


CPX 


#$03 


F912:F0 1C 




"930 


166 




BEQ 


PRADR5 


F914:06 2E 






167 


PRADR2 


ASL 


FORMAT 


F916:90 0E 




"926 


168 




BCC 


PRADR3 


F918:BD B9 


F9 




169 




LDA 


CHAR1-1 ,X 


F91B:20 ED 


FD 




170 




JSR 


COUT 


F91EiBD B3 


F9 




171 




LDA 


CHAR2-1,X 


F921:F0 03 


F926 


172 




BEQ 


PRADR3 


F923:20 ED 


FD 




173 




JSR 


CDUT 


F926:CA 






174 


PRADR3 


DEX 




F927:D0 E7 


F910 


175 




BNE 


PRADR1 


F929:60 






176 




RTS 
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;FQRM INDEX INTO MNEMONIC TABLE 

1) 1XXX1010 => 00101XXX 

2) XXXYYY01 => 00111XXX 

3) XXXYYY10 => 00110XXX 

4) XXXYY100 => 00100XXX 

5) XXXXX000 => 000XXXXX 



;GEN FMT, LEN BYTES 

;SAVE MNEMONIC TABLE INDEX 



;PRINT 2 BLANKS 

;PRINT INST (1-3 BYTES) 
; IN A 12 CHR FIELD 

;CHAR COUNT FOR MNEMONIC INDEX 
iRECOVER MNEMONIC INDEX 



iFETCH 3-CHAR MNEMONIC 
; CRACKED INTO 2-BYTES) 



;SHIFT 5 BITS OF CHARACTER INTO A 
; (CLEARS CARRY) 



;ADD "?" OFFSET 
;OUTPUT A CHAR OF MNEM 



SOUTPUT 3 BLANKS 

;CNT FOR 6 FORMAT BITS 

; IF X = 3 THEN ADDR . 
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Appl 


2 //c F8 


moni t 


or firmware 
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F92A 








177 


» 








F92A 


88 






178 


='RADR4 


DEY 






F92B 


30 


E7 


F914 


179 




BMI 


PRADR2 




F92D 


20 


DA 


FD 


180 




JSR 


PRBYTE 




F930 


A5 


2E 




181 


=RADR5 


LDA 


FORMAT 




F932 


C9 


E8 




182 




CMP 


*$E8 


HANDLE REL ADR MODE 


F934 


B1 


3A 




183 




LDA 


CPCD.Y 


SPECIAL (PRINT TARGET, 


F936 


90 


F2 


F92A 


184 




BCC 


PRADR4 


NOT OFFSET) 


F938 


20 


56 


F9 


185 


5ELADR 


JSR 


PCADJ3 




F93B 


AA 






186 




TAX 




PCL,PCH+0FFSET+1 TO A,Y 


F93C 


E8 






187 




INX 






F93D 


D0 


01 


F940 


188 




BNE 


PRNTYX 


+1 TO Y,X 


F93F 


C8 






189 




INY 






F94B 


98 






190 


=|RNTYX 


TYA 






F941 


20 


DA 


FD 


191 


=RNTAX 


JSR 


PRBYTE 


OUTPUT TARGET ADR 


F944 


8A 






192 PRNTX 


TXA 




OF BRANCH AND RETURN 


F94S 


4C 


DA 


FD 


193 




JMP 


PRBYTE 




F948 








194 










F948 


A2 


03 




195 PRBLNK 


LDX 


#$03 


BLANK COUNT 


F94A 


A9 


A0 




196 PRBL2 


LDA 


**A0 


LOAD A SPACE 


F94C 


20 


ED 


FD 


197 PRBL3 


JSR 


COUT 


OUTPUT A BLANK 


F94F 


CA 






198 




DEX 






F9S0 


D0 


F8 


F94A 


199 




BNE 


PRBL2 


LOOP UNTIL COUNT=0 


F9S2 


60 






200 




RTS 






F953 








201 










F953 


38 






202 PCADJ 


SEC 




0=1 BYTE, 1»2 BYTE, 


F954 


A5 


2F 




203 PCADJ2 


LDA 


LENGTH 


2-3 BYTE 


F956 


A4 


3B 




204 PCADJ3 


LDY 


PCH 




F958 


AA 






205 




TAX 




TEST DISPLACEMENT SIGN 


F959 


10 


01 


F95C 


206 




BPL 


PCADJ4 


(FOR REL BRANCH) 


F95B 


88 






207 




DEY 




EXTEND NEG BY DECK PCH 


F9BC 


65 


3A 




208 PCADJ4 


ADC 


PCL 




F95E 


90 


01 


F9ei 


209 




BCC 


RTS2 


PCLtLENGTH(aR DISPL)+1 T 


F9Ga 


C8 






210 




INY 




CARRY INTO Y (PCH) 


F961 


60 






211 RTS2 


RTS 






F9G2 








212 


t 








F962 








213 


FMT1 BYTES: 


XXXXXXY0 instr; 




F962 








214 


IF Y = 




THEN RIGHT HALF 


" BYTE 


F962 








215 


IF Y=1 




THEN LEFT HALF 


BYTE 


F9e2 








216 






(X=INDEX) 




F962 








217 










F962 


0F 






218 F 


"MT1 


DFB 


$0F 




F963 


22 






219 




DFB 


$22 




F964 


FF 






220 




DFB 


$FF 




F965 


33 






221 




DFB 


$33 




F966 


CB 






222 




DFB 


$CB 




F967 


62 






223 




DFB 


$62 




F968 


FF 






224 




DFB 


$FF 




F969 


73 






225 




DFB 


$73 




F96A 


03 






226 




DFB 


$03 




F96B 


22 






227 




DFB 


$22 




F96C 


FF 






228 




DFB 


$FF 




F96D 


33 






229 




DFB 


$33 




F96E 


CB 






230 




DFB 


$CB 




F96F 


66 






231 




DFB 


$66 




F970 


FF 






232 




DFB 


$FF 




F971 


77 






233 




DFB 


$77 




F972 


0F 






234 




DFB 


$0F 





120 



jsiirig 
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Apple //c 


F8 monit 


or firmware 


F973:20 


235 


DFB 


$20 


F974:FF 


236 


DFB 


$FF 


F975:33 


237 


DFB 


$33 


F976:CB 


238 


DFB 


$CB 


F977:60 


239 


DFB 


$60 


F978:FF 


240 


DFB 


IFF 


F979:7B 


241 


DFB 


$70 


F97A:0F 


242 


DFB 


$0F 


F97B:22 


243 


DFB 


$22 


F97C:FF 


244 


DFB 


$FF 


F97D:39 


245 


DFB 


$39 


F97E!CB 


246 


DFB 


$CB 


F97F:66 


247 


DFB 


$66 


F980:FF 


248 


DFB 


$FF 


F981:7D 


249 


DFB 


$7D 


F982:0B 


250 


DFB 


$0B 


F983:22 


251 


DFB 


$22 


F984:FF 


252 


DFB 


IFF 


F985:33 


253 


DFB 


$33 


F986:CB 


254 


DFB 


$CB 


F987:A6 


255 


DFB 


$A6 


F988:FF 


256 


DFB 


$FF 


F989:73 


257 


DFB 


173 


F98fi: 11 


258 


DFB 


11 1 


F98B:22 


259 


DFB 


122 


F98C:FF 


260 


DFB 


IFF 


F98D:33 


261 


DFB 


$33 


F98E:CB 


262 


DFB 


$CB 


F98F:fi6 


263 


DFB 


$A6 


F990:FF 


264 


DFB 


$FF 


F991:87 


265 


DFB 


$87 


F992:01 


266 


DFB 


$01 


F993:22 


267 


DFB 


$22 


F994:FF 


268 


DFB 


IFF 


F995:33 


269 


DFB 


133 


F996:CB 


270 


DFB 


ICB 


F997:60 


271 


DFB 


160 


F998:FF 


272 


DFB 


IFF 


F999:70 


273 


DFB 


170 


F99A:0 1 


274 


DFB 


101 


F99B:22 


275 


DFB 


122 


F99C:FF 


276 


DFB 


IFF 


F99D:33 


277 


DFB 


133 


F99E:CB 


278 


DFB 


ICB 


F99F:60 


279 


DFB 


160 


F9A0:FF 


280 


DFB 


IFF 


F9A1 :70 


281 


DFB 


170 


F9A2:24 


282 


DFB 


124 


F9A3:31 


283 


DFB 


131 


F9A4:65 


284 


DFB 


165 


F9A5:78 


285 


DFB 


178 


F9Ae: 


286 ; ZZXXXY01 INSTR'S 


F9A6:00 


287 FMT2 


DFB 


100 


F9A7:21 


288 


DFB 


$21 


F9A8:81 


289 


DFB 


$81 ; 


F9A9:82 


290 


DFB 


$82 ; 


F9AA:B9 


291 


DFB 


$59 ; 


F9AB:4D 


292 


DFB 


$4D ; 
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ERR 

I MM 

Z-PAGE 

ABS 

(ZPAG.X) 

CZPAGJ.Y 
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F9AC:91 

F9AD:92 

F9AE:8G 

F9AF:4A 

F9B0:8S 

F9B1 !9D 

F9B2:'(9 

F9B3:5A 

F9B4: 

F9B4:D9 

F9B5:00 

F9Be:D8 

F9B7:A4 

F9B8!A4 

F9B9:B0 

F9BA: 

F9BA:AC 

F9BB:A9 

F9BC:AC 

F9BD:A3 

F9BE:A8 

F9BF:A4 

F9C0: 1C 

F9C1 :8A 

F9C2: 1C 

F9C3:23 

F9C4:5D 

F9C5:8B 

F9C6: IB 

F9C7:A1 

F9C8:9D 

F9C9:8A 

F9CA: 1D 

F9CB:23 

F9CC:9D 

F9CD:8B 

F9CE: ID 

F9CF:A1 

F9D0: 1C 

F9D1 :29 

F9D2: 19 

F9D3:AE 

F9D4:69 

F9D5:A8 

F9D6: 19 

F9D7:23 

F9D8;24 

F9D9:53 

F9DA: 1B 

F9DB:23 

F9DC:24 

F9DD:53 

F9DE: 19 

F9DF:A1 

F9E0;AD 

F9E1 : 1A 

F9E2:5B 

F9E3:5B 
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293 


DFB 


$91 


294 


DFB 


$92 


29S 


DFB 


$86 


298 


DFB 


$4A 


297 


DFB 


$85 


298 


DFB 


$9D 


299 


DFB 


$49 


300 


DFB 


$5A 


301 * 






302 CHAR2 


DFB 


$D9 


303 


DFB 


$00 


304 


DFB 


$D8 


305 


DFB 


$A4 


306 


DFB 


$A4 


307 


DFB 


$00 


308 * 






309 CHAR1 


DFB 


$AC 


310 


DFB 


$A9 


311 


DFB 


$AC 


312 


DFB 


$A3 


313 


DFB 


$A8 


314 


DFB 


$A4 


315 MNEML 


DFB 


$1C 


316 


DFB 


$8A 


317 


DFB 


$1C 


318 


DFB 


$23 


319 


DFB 


$SD 


320 


DFB 


$8B 


321 


DFB 


$1B 


322 


DFB 


$A1 


323 


DFB 


$9D 


324 


DFB 


$8A 


325 


DFB 


$1D 


326 


DFB 


$23 


327 


DFB 


$9D 


328 


DFB 


$8B 


329 


DFB 


$1D 


330 


DFB 


$A1 


331 


DFB 


$1C 


332 


DFB 


$29 


333 


DFB 


$19 


334 


DFB 


$AE 


335 


DFB 


$69 


336 


DFB 


$A8 


337 


DFB 


$19 


338 


DFB 


$23 


339 


DFB 


$24 


340 


DFB 


$53 


341 


DFB 


$1B 


342 


DFB 


$23 


343 


DFB 


$24 


344 


DFB 


$53 


345 


DFB 


$19 


346 


DFB 


$A1 


347 


DFB 


$AD 


348 


DFB 


$1A 


349 


DFB 


$5B 


350 


DFB 


$5B 
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ZPAG.X 

ABS.X 

ABS.Y 

(ABS) 

ZPAG,Y 

RELATIVE 
(ZPAG) 
(ABS,X) 
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Cnew) 
(new) 



I 'Y' 
(byte 
■ Y- 

'$' 



F of FMT2) 



;BRA 



(A) FORMAT ABOVE 
TSB 
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F9E4 


:AB 


F9EB 


:69 


F9E6 


:24 


F9E7 


:24 


F9E8 


:AE 


F9E9 


:AE 


F9EA 


:A8 


F9EB 


:AD 


F9EC 


:29 


F9ED 


:8A 


F9EE 


:7C 


F9EF 


:8B 


F9F0 


: 15 


F9F1 


:9C 


F9F2 


:6D 


F9F3 


:9C 


F9F4 


:A5 


F9F5 


:69 


F9F6 


:29 


F9F7 


:53 


F9F8 


:84 


F9F9 


: 13 


F9FA 


:34 


F9FB 


: 11 


F9FC 


:A5 


F9FD 


:69 


F9FE 


i23 


F9FF 


;A0 


FA00; 




FA00; 


Ids 


FA01 1 


;62 


FA02i 


ISA 


FA03i 


:48 


FA04: 


26 


FA05: 


62 


FA06; 


94 


FA07: 


88 


FA08: 


54 


FA09: 


44 


FA0A: 


C8 


FA0B: 


54 


FA0C: 


68 


FA0D: 


44 


FA0E: 


E8 


FA0F: 


94 


FA10: 


C4 


FA11 : 


B4 


FA12: 


08 


FA13: 


84 


FA14: 


74 


FA1S: 


B4 


FA16: 


28 


FA17: 


6E 


FA18: 


74 


FA19: 


F4 


FA1A: 


CC 


FA1B: 


4A 


FA1C: 


72 



Apple //c F8 monitor firmware 31-MAY-85 PAGE 70 



(B) FORMAT 



351 


DFB 


$AS 


352 


DFB 


$69 


353 


DFB 


$24 


354 


DFB 


$24 


355 


DFB 


$AE 


356 


DFB 


$AE 


357 


DFB 


$A8 


358 


DFB 


$AD 


359 


DFB 


$29 


360 


DFB 


$8A 


361 


DFB 


$7C 


362 


DFB 


$8B 


363 


DFB 


$15 


364 


DFB 


$9C 


365 


DFB 


$6D 


366 


DFB 


$9C 


367 


DFB 


$A5 


368 


DFB 


$69 


369 


DFB 


$29 


370 


DFB 


$53 


371 


DFB 


$84 


372 


DFB 


$13 


373 


DFB 


$34 


374 


DFB 


$11 


375 


DFB 


$A5 


376 


DFB 


$69 


377 


DFB 


$23 


378 


DFB 


$A0 


379 • 






380 MNEMR 


DFB 


$D8 


381 


DFB 


$62 


382 


DFB 


$5A 


383 


DFB 


$48 


384 


DFB 


$26 


385 


DFB 


$62 


386 


DFB 


$94 


387 


DFB 


$88 


388 


DFB 


$54 


389 


DFB 


$44 


390 


DFB 


$C8 


391 


DFB 


$54 


392 


DFB 


$68 


393 


DFB 


$44 


394 


DFB 


$E8 


395 


DFB 


$94 


396 


DFB 


$C4 


397 


DFB 


$B4 


398 


DFB 


$08 


399 


DFB 


$84 


400 


DFB 


$74 


401 


DFB 


$B4 


402 


DFB 


$28 


403 


DFB 


$GE 


404 


DFB 


$74 


405 


DFB 


$F4 


406 


DFB- 


$CC 


407 


DFB 


$4A 


408 


DFB 


$72 



(C) FORMAT 



CD) FORMAT 



; CE) FORMAT 



;BRA 
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FA1D:F2 409 

FA1E:A4 410 

FA1F:8A 411 DFB $8A ; CA) FORMAT 

FA20:06 412 DFB $08 ; TSB 

FA21:AA 413 

FA22:A2 414 

FA23:A2 415 

FA24:74 416 

FA25:74 417 

FA26:74 418 

FA27:72 419 DFB «72 i tB) FORMAT 

FA28:44 420 

FA29:68 421 

FA2A:B2 422 

FA2B:32 423 

FA2C!B2 424 

FA2D:72 425 

FA2E:22 426 

FA2F:72 427 DFB $72 ; (C) FORMAT 

FA30:1A 428 

FA31:1A 429 

FA32:26 430 

FA33:2e 431 

FA34:72 432 

FA35:72 433 

FA3e:88 434 

FA37:C8 435 DFB $C8 i (D) FORMAT 

FA38:C4 436 

FA39:CA 437 

FA3A:26 438 

FA3B:48 439 

FA3C:44 440 

FA3D:44 441 

F A3E 'AS 442 

FA3F:C8 443 DFB $C8 ; (E) FORMAT 

FA40: 444 * 

FA40:85 45 445 IRQ STA $45 ;+ Trash $45 for those who want It 

FA42:A5 45 446 

FA44:4C 03 C8 447 

FA47: 448 * 

FA47: 449 * 

FA47: 450 * NEWBRK is called by the Interrupt handler which has 

FA47: 451 • set the hardware to its default state and encoded 

FA47: 452 * the state in the accumulator. Software that wants 

FA47: 453 * to do break processing using full system resources 

FA47: 454 * can restore the machine state from this value. 

FA47: 455 * 

FA47:85 44 456 NEWBRK STA MACSTAT ; save state of machine 

FA49:7A 457 PLY ^restore registers for save 

FA4A:FA 458 PLX 

FA4B:68 459 PLA 

FA4C: 460 * 

FA4C:28 461 BREAK PLP jNote: same as old BREAK routine! 

FA4D:20 4A FF 462 JSR SAVE ; save reg's on BRK 

FA50:68 463 PLA including PC 

FA51 :85 3A 464 STA PCL 

FA53:68 465 PLA 

FA54:85 3B 466 STA PCH 



DFB 


$F2 


DFB 


$A4 


DFB 


$8A 


DFB 


$06 


DFB 


$AA 


DFB 


$A2 


DFB 


$A2 


DFB 


$74 


DFB 


$74 


DFB 


$74 


DFB 


$72 


DFB 


$44 


DFB 


$68 


DFB 


$B2 


DFB 


$32 


DFB 


$B2 


DFB 


$72 


DFB 


$22 


DFB 


$72 


DFB 


$1A 


DFB 


$1A 


DFB 


$26 


DFB 


$26 


DFB 


$72 


DFB 


$72 


DFB 


$88 


DFB 


$C8 


DFB 


$C4 


DFB 


$CA 


DFB 


$26 


DFB 


$48 


DFB 


$44 


DFB 


$44 


DFB 


$A2 


DFB 


$C8 


STA 


$45 


LDA 


$45 


JMP 


NEWIRQ 
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FA5e:6C F 
FA59: 

FA59:20 82 
FA5C:20 DA 
FA5F:4C 65 
FA62: 
FA62:D8 
FA63:20 84 
FA66:20 2F 
FA69:20 4D 
FA6C:20 1A 
FA6F:20 04 
FA72:9C FF 
FA7S:AD 5F 
FA78:20 BD 
FA7B:2C 10 
FA7E:80 05 
FA80:EA 
FA81:D8 
FA82:20 3A 
FA85:AD F3 
FA88:49 A5 
FA8A:CD F4 
FA8D:D0 17 
FA8F:AD F2 
FA92:D0 0F 
FA94:A9 E0 
FA96:CD F3 
FA99:D0 08 
FA9B:A0 03 
FA9D:8C F2 
FAA0:4C 00 
FAA3: 

FAA3:6C F2 
FAA6: 

FAAG:20 CA 
FAA9: 

FAA9:A2 05 
FAABrBD FC 
FAAEjSD EF 
FAB1 !CA 
FAB2;D0 F7 
FAB4:A9 C6 
FABS:80 SA 
FAB8: 
FAB8; 
FAB8: 
FAB8:8A 
FAB9:8B 
FABA:A5 
FABB:AC 
FABC:00 
FABD: 
FABD: 
FABD: 
FABD: 
FABD: 
FABD: 



03 

F8 
FA 

FF 



FE 
FB 
CE 
C4 
CC 
04 
C0 
FA 
C0 



FA85 



FF 
03 



03 



FAA6 



03 



FAA3 



03 



FAA3 



03 
£0 



03 
FC 



FAA9 



FA 
03 



FAAB 
FB12 



467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 



QLDBRK 



RESET 



NEWMDN 
BEEPSKIP 



FIXSEV 



NOFIX 



PWRUP 
SETPG3 



SETPLP 



JMP 



CLD 

JSR 

JSR 

JSR 

JSR 

JSR 

STZ 

LDA 

JSR 

BIT 

BRA 

NOP 

CLD 

JSR 

LDA 

EOR 

CMP 

BNE 

LDA 

BNE 

LDA 

CMP 

BNE 

LDY 

STY 

JMP 

JMP 

JSR 
EQU 
LDX 
LDA 
STA 
DEX 
BNE 
LDA 
BRA 



CBRKV) 



JSR INSDS1 
JSR RGDSP1 
JMP MON 



SETNORM 

INIT 

ZZQUIT 

INITMDUSE 

CLRPORT 

ACIABUF 

SETAN3 

RESET. X 

KBDSTRB 

BEEPSKIP 



BELL 

SQFTEV+1 

*$A5 

PWREDUP 

PWRUP 

SOFTEV 

NDFIX 

#$E0 

SDFTEV+1 

NDFIX 

*3 

SOFTEV 

BASIC 

CSOFTEV) 

COLDSTART 

« 

#5 

PWRCON-1 ,X 
BRKV-1 ,X 

SETPLP 

*$ce 

PWRUP2 
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;call BRK HANDLER 
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PRINT USER PC 

AND REGS 
GO TO MONITOR CNO PASS GO, NO $200!) 

;D0 THIS FIRST THIS TIME 



;+ Setvld i Setkbd 
llnitiallze the mouse 
;clear port setup bytes 
;and the commahead buffer 

; AN3 = TTL HI 
i initialize other devices 

; CLEAR KEYBOARD 
;+ Bell already beeped 

; * align code 

CAUSES DELAY IF KEY BOUNCES 
IS RESET HI 
A FUNNY COMPLEMENT OF THE 

PWR UP BYTE ??? 

NO SO PWRUP 

YES SEE IF COLD START 

HAS BEEN DONE YET? 

DOES SEV POINT AT BASIC? 

YES SO REENTER SYSTEM 

NO SO POINT AT WARM START 

FOR NEXT RESET 

AND DO THE COLD START 



jTrash memory, inlt ports 
; SET PAGE 3 VECTORS 

; WITH CNTRL B ADRS 
; OF CURRENT BASIC 



; LOAD HI SLOT +1 
jbranch around mnemonics 



* Extension to MNEML (left mnemonics) 



DFB 
DFB 
DFB 
DFB 
DFB 



$8A 
$8B 
$A5 
»AC 
$00 



This ex 
check 5 
into an 
pressed 
is done 



tension to the mon 
for apple keys. I 

exerciser mode. 
, memory Is select 



;PHY 
;PLY 
;STZ 
;TRB 



Itor reset routine ($FA62) 
f both are pressed, It goes 
If the open apple key only Is 
Ively trashed and a cold start 
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FABD 
FABDi 
FABF: 
FAC2i 
FACE: 
FAC8: 
FACE; 
FACE; 
FAD0; 
FAD2; 
FAD5; 
FAD6; 
FAD7; 
FADA; 
FADCi 
FADE; 
FAE0; 
FAE2; 
FAE4; 
FAE6; 
FAE9; 
FAEC; 
FAEF; 
FAF1 ; 
FAF4; 
FAF6! 
FAFSi 
FAFSi 
FAF8! 
FAF81 
FAF9! 
FAFA; 
FAFBi 
FAFCi 
FAFDi 
FAFD; 
FAFF; 
FB02! 
FB02: 
FB05; 
FB06: 
FB08: 
FB09: 
FB09i 
FB11 ; 
FB12; 
FB12; 
FB14: 
FB16: 
FB19: 
FB1C; 
FB1D: 
FB1E: 
FB1E: 
FB21 ; 
FB23! 
FB24: 
FB25: 



C0 
C0 



FB2E 
FAA6 



A9 FF 

8D FB 04 

20 3A FF 

20 F8 C5 

0E 62 

2C 81 

10 BE 

90 D4 

4C CI C7 

EA 

EA 

20 8E FD 

A9 44 

85 40 

A9 

85 41 

A2 FA 

A9 A0 

20 ED FD 

BD 9A CE 

20 ED FD 

A9 BD 

20 ED FD 

B5 4A 

80 BA FB02 



74 
74 
76 
C6 
00 

59 FA 
00 E0 45 

20 DA FD 

E8 

30 DC FAE4 

60 

CI F0 F0 EC 
C4 

86 
85 01 
20 60 FB 
6C 00 00 
00 



4C 00 C9 

A0 00 

EA 

EA 

BD 64 C0 



525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 



RESET. X 



REGDSP 
RGDSP1 



RDSP1 



LDA 
STA 
JSR 
JSR 
ASL 
BIT 
BPL 
BCC 
JMP 
NOP 
NOP 
JSR 
LDA 
STA 
LDA 
STA 
LDX 
LDA 
JSR 
LDA 
JSR 
LDA 
JSR 
LDA 
BRA 



#$FF 

VMODE 

BELL 

PCNVRST 

BUTN1 

BUTN0 

RTS2D 

PWRUP 

BANGER 



CRDUT 

#$44 

A3L 

*$00 

A3H 

*$FA 

#$A0 

COUT 

RTBL-$FA,X 

COUT 

*$BD 

COUT 

ACCt5,X 

RGDSP2 



PWRCON 



RGDSP2 



TITLE 



PWRUP2 



PREAD 



PREAD2 



DW 
DFB 



OLDBRK 
$00,$E0,$45 

PRBYTE 



JSR 

INX 

BMI RDSP1 

RTS 



ASC 
DFB 

STX 
STA 
JSR 
JMP 
BRK 
BRK 



'Apple 
$C4 

LDC0 
LOCI 
APPLEI I 
CLDC0) 



MPADDLE 
*$00 



initialize mode 

+ Need bell delay for 3.5" drive 

+ Reset protocol converter 



;open apple only, reboot 
;both apples, exercise 'er 
; + align code 



DISPLAY USER REG CONTENTS 

WITH LABELS 

Memory state now printed 



Right half of new mnemonics, 

DFB $74 

DFB $74 

DFB $76 

DFB $C6 

DFB $00 



;make room for mnemonics 

indexed from MNEMR 

PHY 
PLY 
STZ 
TRB 
999 



JMP 
LDY 
NOP 
NOP 
LDA PADDL0,X 



][ ' 

; opt iona 1 filler 

; SETPG3 MUST RETURN X-0 

; SET PTR H 
;Display our banner... 
iJUMP $C600 



;read mouse paddle 
; INIT COUNT 
;COMPENSATE FOR 1ST COUNT 

;COUNT Y-REG EVERY 12 USEC. 
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App] 


.e 


//c 


F8 


moni t 


or firmware 


FB28: 10 04 


FB2E 


583 








BPL 


RTS2D 


FB2A:C8 




584 








INY 




FB2B:D0 F8 


FB25 


585 








BNE 


PREAD2 


FB2D:88 




586 








DEY 




FB2E:60 




587 


RTS2D 




RTS 




FB2F: 




49 








INCLUDE AUT0ST2 
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;EXIT AT 255 MAX 
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App 


e //c F8 


moni t 


or firmware 


FB2F: 






2 


« 






FB2F:A9 


00 




3 


INIT 


LDA 


#$00 


FB31:85 


48 




4 




STA 


STATUS 


FB33:AD 


56 


C0 


5 




LDA 


LORES 


FB36:AD 


54 


C0 


6 




LDA 


TXTPAGE1 


FB39:AD 


51 


C0 


7 


SETTXT 


LDA 


TXTSET 


FB3C:A9 


00 




8 




LDA 


'$00 


FB3E:F0 


0B 


FB4B 


9 




BEQ 


SETWND 


FB40:AD 


50 


C0 


10 


SETGR 


LDA 


TXTCLR 


FB43:AD 


53 


C0 


11 




LDA 


MIXSET 


FB46:20 


36 


F8 


12 




JSR 


CLRTOP 


FB49:A9 


14 




13 




LDA 


*$14 


FB4B:85 


22 




14 


SETWND 


STA 


WNDTOP 


FB4D:EA 






15 




NDP 




FB4E:EA 






16 




NOP 




FB'»F:20 


0A 


CE 


17 




JSR 


WNDREST 


FB52:80 


05 


FB59 


18 




BRA 


VTAB23 


FB54: 






19 


* 






FB54:09 


80 




20 


DDCTL 


ORA 


"$80 


FBB6:4C 


54 


CD 


21 




JMP 


CTLCHAR0 


FBB9: 






22 


* 






FB59:A9 


17 




23 


VTAB23 


LDA 


*$17 


FBBB:85 


25 




24 


TABV 


STA 


CV 


FB5D:4C 


22 


FC 


25 




JMP 


VTAB 


FB60: 






26 


• 






FB60:20 


58 


FC 


27 


APPLEII 


JSR 


HOME 


FB63:A0 


09 




28 




LDY 


*9 


FB6B:B9 


BA 


C5 


29 


STITLE 


LDA 


APPLE2C-1 ,Y 


FB68:99 


0D 


04 


30 




STA 


LINE1+13,Y 


FB6B:88 






31 




DEY 




FB6C:D0 


F7 


FBes 


32 




BNE 


STITLE 


FB6E:60 






33 




RTS 




FB6F: 






34 


# 






FB6F:AD 


F3 


03 


35 


SETPWRC 


LDA 


SOFTEV+1 


FB72:49 


A5 




36 




EDR 


*$A5 


FB74:8D 


F4 


03 


37 




STA 


PWREDUP 


FB77:60 






38 




RTS 




FB78: 






39 


# 






FB78: 




FB78 


40 


VIDNAIT 


EQU 


# 


FB78:C9 


8D 




41 




CMP 


#$8D 


FB7A:D0 


18 


FB94 


42 




BNE 


NDWAIT 


FB7C:AC 


00 


C0 


43 




LDY 


KBD 


FB7F: 10 


13 


FB94 


44 




BPL 


NONAIT 


FB81:C0 


93 




45 




CRY 


*$93 


FB83:D0 


0F 


FB94 


46 




BNE 


NOWAIT 


FB85:2C 


10 


C0 


47 




BIT 


KBDSTRB 


FB88:AC 


00 


C0 


48 


KBDWAIT 


LDY 


KBD 


FB8B: 10 


FB 


FB88 


49 




BPL 


KBDWAIT 


FB8D:C0 


83 




50 




CPY 


#$83 


FB8F:F0 


03 


FB94 


51 




BEQ 


NOWAIT 


FB91:2C 


10 


C0 


52 




BIT 


KBDSTRB 


FB94:2C 


7B 


06 


53 


NQWAIT 


BIT 


VFACTV 


FB97:30 


64 


FBFD 


54 




BMI 


VIDDUT 


FB99:89 


60 




55 




BIT 


#$60 


FB9B:F0 


B7 


FB54 


56 




BEQ 


DOCTL 


FB9D:20 


B8 


C3 


57 




JSR 


STORCH 


FBA0:EE 


7B 


05 


58 


NEWADV 


INC 


OURCH 


FBA3:AD 


7B 


05 


59 




LDA 


OURCH 



31-MAY-85 PAGE 75 
;CLR STATUS FDR DEBUG SOFTWARE 



INIT VIDEO MODE 
SET FOR TEXT MODE 
FULL SCREEN WINDOW 

;SET FOR GRAPHICS MODE 

;LOWER 4 LINES AS TEXT WINDOW 



iSET WINDOW 



;40/80 column width 



jcontrols need high bit 
jexecute control char 

iVTAB TO ROW 23 
;VTABS TO ROW IN A-REG 
jdon't set OURCV! ! 

;CLEAR THE SCRN 

;GET A CHAR 

;PUT IT AT TOP CENTER OF SCREEN 



iROUTINE TO CALCULATE THE 'FUNNY 
iCOMPLEMENT' FOR THE RESET VECTOR 



CHECK FDR A PAUSE (CONTROL-S). 

ONLY WHEN I HAVE A CR 

NOT SO, DO REGULAR 

IS KEY PRESSED? 

NO. 

YES - IS IT CTRL-S? 

NOPE - IGNORE 

CLEAR STROBE 

WAIT TILL NEXT KEY TO RESUME 

WAIT FOR KEYPRESS 

IS IT CONTROL-C? 

YES, SO LEAVE IT 

CLR STROBE 
is video firmware active? 
=>no, do normal 40 column 
is it a control? 
= >ye5 , do i t 
print w/inverse mask 
advance cursor 
and update others 



128 



Apperuiix A: F'irmwai'e Listing 



20 AUT0ST2 




Apple //c F8 


moni t 


or firmwa 


■BA6:2C 1F 


C0 


60 


BIT 


RD80VID 


FBA9:3I3 05 


FBB0 


61 


BMI 


NENADV1 


FBAB:8D 7B 


04 


62 


STA 


OLDCH 


FBAE:85 24 




63 


STA 


CH 


FBB0:80 46 


FBF8 


64 NEWADV1 


BRA 


ADV2 


FBB2: 




65 • 






FBB2;EA 




66 


NOP 




FBB3: 




67 * 






FBB3:B6 




68 F8VERSI0N DFB 


GQODFB 


FBB4: 




69 * 






FBB4: 10 06 


FBBC 


70 D0C0UT1 


BPL 


DCX 


FBB6:C9 A0 




71 


CMP 


*$A0 


FBB8:90 02 


FBBC 


72 


BCC 


DCX 


FBBA:25 32 




73 


AND 


INVFLG 


FBBC:4C F6 


FD 


74 DCX 


JMP 


COUTZ 


FBBF:00 




75 


BRK 




FBC0: 




76 • 






FBC0;00 




77 


DFB 


$00 


FBC1: 




78 » 






FBC1 :48 




79 BASCALC 


PHA 




FBC2:4A 




80 


LSR 


A 


FBC3:29 03 




81 


AND 


*$03 


FBC5!09 04 




82 


ORA 


#$04 


FBC7:8S 29 




83 


STA 


BASH 


FBC9:68 




84 


PLA 




FBCA:29 18 




85 


AND 


*$18 


FBCC:90 02 


FBD0 


86 


BCC 


BASCLC2 


FBCE:69 7F 




87 


ADC 


*$7F 


FBD0:85 28 




88 BASCLC2 


STA 


BASL 


FBD2:0A 




89 


ASL 


A 


FBD3:0A 




90 


ASL 


A 


FBD4:05 28 




91 


DRA 


BASL 


■^BDG.-BB 28 




92 


STA 


BASL 


BD8:60 




93 


RTS 




rBD9: 




94 • 






FBD9:C9 87 




95 CHKBELL 


CMP 


#$87 


FBDB:D0 12 


FBEF 


96 


BNE 


RTS2B 


FBDD:A9 40 




97 BELLI 


LDA 


#$40 


FBDF:20 A8 


FC 


98 


JSR 


WAIT 


FBE2:A0 C0 




99 


LDY 


#$C0 


FBE4:A9 0C 




100 BELL2 


LDA 


#$0C 


FBE6:20 A8 


FC 


101 


JSR 


WAIT 


FBE9:AD 30 


C0 


102 


LDA 


SPKR 


FBEC:88 




103 


DEY 




FBED:D0 FS 


FBE4 


104 


BNE 


BELL2 


FBEF:60 




105 RTS2B 


RTS 




FBF0: 




106 * 






FBF0:A4 24 




107 STORADV 


LDY 


CH 


FBF2:91 28 




108 


STA 


CBASL),Y 


FBF4:E6 24 




109 ADVANCE 


INC 


CH 


FBF6:A5 24 




110 


LDA 


CH 


FBF8:C5 21 




111 ADV2 


CMP 


WNDWDTH 


FBFA:B0 66 


FC62 


112 


BCS 


CR 


FBFC:60 




113 RTS3 


RTS 




FBFD: 




114 * 






FBFD:C9 A0 




115 VIDDUT 


CMP 


#$A0 


FBFF:B0 EF 


FBF0 


116 


BCS 


STORADV 


FC01 :A8 




117 


TAY 





31-MAY-85 



PAGE 76 



;but only if not 80 columns 
;=>80 columns, leav'em 



;check for CR 



;//e, chels ID byte 

=>video firmware active, no mask 

is it control char? 

=>ye5, no mask 

else apply inverse mask 

and print character 



ichels ID byte 

;CALC BASE ADDR IN BASL,H 
jFOR GIVEN LINE NO. 

; 0<=LINE ND.<=$17 

;ARG=000ABCDE, GENERATE 

; BASH=000001CD 

! AND 

; BASL=EABAB000 



BELL CHAR? (CONTROL-G) 

NO, RETURN. 

YES. . . 
DELAY .01 SECONDS 

;TOGGLE SPEAKER AT 1 KHZ 
i FOR .1 SEC. 



;get 40 column position 
;and store 
jincrement cursor 



BEYOND WINDOW WIDTH? 
YES, CR TO NEXT LINE. 
NO, RETURN. 



CONTROL CHAR? 

NO, OUTPUT IT. 
INVERSE VIDEO? 



Appends A: Firimvare Listing 



20 AUT0ST2 




Apple //o F8 


monitor firmware 


FC02: 10 EC 


FBF0 


1 18 


BPL 


STORADV 


FC04:C9 8D 




119 VIDQUTI 


CMP 


*$8D 


FC06:F0 GB 


FC73 


120 


BEQ 


NEWCR 


FC08:C9 8A 




121 


CMP 


*$8A 


FC0A:F0 5A 


FC66 


122 


BEQ 


LF 


FC0C:C9 88 




123 


CMP 


*$88 


FC0E:D0 C9 


FBD9 


124 


BNE 


CHKBELL 


FC10:20 E2 


FE 


125 BS 


JSR 


DECCH 


FC13: 10 E7 


FBFC 


126 


BPL 


RTS3 


FC15:A5 21 




127 


LDA 


WNDWDTH 


FC17:20 EB 


FE 


128 


JSR 


WDTHCH 


FC1A:A5 22 




129 UP 


LDA 


WNDTOP 


FC1C:C5 25 




130 


CMP 


CV 


FC1E:B0 DC 


FBFC 


131 


BCS 


RTS3 


FC20:C6 25 




132 


DEC 


CV 


FC22: 




133 » 






FC22:80 62 


FC86 


134 VTAB 


BRA 


NEWVTAB 


FC24:20 CI 


FB 


135 VTABZ 


JSR 


BASCALC 


FC27:A5 20 




136 


LDA 


WNDLFT 


FC29:2C 1F 


C0 


137 


BIT 


RD80VID 


FC2C: 10 02 


FC3B 


138 


BPL 


VTAB40 


FC2Ei4A 




139 


LSR 


A 


FC2F: 18 




140 


CLC 




FC30!e5 28 




141 VTAB40 


ADC 


BASL 


FC32:85 28 




142 


STA 


BASL 


FC31:60 




143 RTS4 


RTS 




FC35! 




144 * 






FC35: 




145 * NEWOPS 


trans i 


ate5 the ope 


FC35: 




146 * to a mnemonic 


table index 


FC35: 




147 » If Y 15 


not a 


new opcode, 


FC35: 




148 * 






FC35:98 




149 NEWOPS 


TYA 




FC36:A2 16 




150 


LDX 


*NUMOPS 


FC38:DD FE 


FE 


151 NEW0P1 


CMP 


OPTBL.X 


FC3B:F0 43 


FC80 


152 


BEQ 


GETINDX 


FC3D:CA 




153 


DEX 




FC3E: 10 F8 


FC38 


154 


BPL 


NEW0P1 


FC40:60 




155 


RTS 




FC41 : 




156 * 






FC41 :00 




157 


BRK 




FC42: 




158 * 






FC42:80 19 


FC5D 


159 CLREOP 


BRA 


CLRE0P1 


FC44:A5 25 




160 CLRE0P2 


LDA 


CV 


FC46:48 




161 CLE0P1 


PHA 




FC47:20 24 


FC 


162 


JSR 


VTABZ 


FC4A:20 9E 


FC 


163 


JSR 


CLEOLZ 


FC4D:A0 00 




164 


LDY 


#$00 


FC4F:e8 




165 


PLA 




FC50: 1A 




166 


INC 


A 


FCS1:C5 23 




167 


CMP 


WNDBTM 


FC53:90 F1 


FC46 


168 


BCC 


CLE0P1 


FC55:B0 CB 


FC22 


169 


BCS 


VTAB 


FC57:00 




170 


BRK 




FCS8: 




171 * 






FC58:20 AS 


CD 


172 HOME 


JSR 


HOMECUR 


FC5B:80 E7 


FC44 


173 


BRA 


CLREDP2 


FC5D: 




174 * 






FC5D:20 9D 


CC 


175 CLRE0P1 


JSR 


GETCUR 
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; YES, OUTPUT IT. 

;CR? 

Yes, use new routine 

LINE FEED? 
IF SO, DO IT. 

BACK SPACE? (CDNTROL-H) 
NO, CHECK FOR BELL. 

decrement all cursor H indices 

IF POSITIVE, OK; ELSE MOVE UP. 
get wl ndow width , 
and set CH's to WNDWDTH-1 
;CURSOR V INDEX 

top line, exit 

not top, go up one 

go update OURCV 

calculate the base address 

get the left window edge 

80 columns? 

=>no , left edge ok 

divide width by 2 

prepare to add 

add width to base 



and returns with Z= 1 . 



;get the opcode 

;check through new opcodes 

; does it match? 

;=>yes, get new index 

jelse check next one 

;not found, exit with BNE 



;ESC F IS CLR TO END OF PAGE 

jSAVE CURRENT LINE NO. ON STACK 
iCALC BASE ADDRESS 
;CLEAR TO EOL. (SETS CARRY) 
;CLEAR FROM H INDEX"=0 FOR REST 
; INCREMENT CURRENT LINE NO. 

DONE TO BOTTOM OF WINDOW? 
NO, KEEP CLEARING LINES. 
YES, TAB TO CURRENT LINE 



;move cursor home 

; then clear to end of page 

;load Y with proper CH 



130 



Ajiperidix 



"'irmware Listing 



20 fiUTOSTS 




Apple //c F8 


moni t 


or firmware 


FC60:8a 


E2 


FC44 


176 


BRA 


CLRE0P2 


FCeSi 






177 * 






FC62:80 


0F 


FC73 


178 CR 


BRA 


NEWCR 


FC64:00 






179 


BRK 




FC6S:00 






180 


BRK 




Fcee: 






181 • 






FC66JE6 


25 




182 LF 


INC 


CV 


FC68:A5 


25 




183 


LDA 


CV 


FC6A:C5 


23 




184 


CMP 


WNDBTM 


FCeC:90 


1A 


FC88 


185 


BCC 


NEWVTABZ 


FCBEiCe 


25 




186 


DEC 


CV 


FC70: 






187 * 






FC70:4C 


35 


CB 


188 SCROLL 


JMP 


SCROLLUP 


FC73: 






189 » 






FC73:20 


E9 


FE 


190 NEWCR 


JSR 


CLRCH 


FC76:2C 


FB 


04 


191 


BIT 


VMDDE 


FC79: 10 


0A 


FC85 


192 


BPL 


CRRTS 


FC7B:20 


44 


FD 


193 


JSR 


NOESCAPE 


FC7E:80 


E6 


Fcee 


194 


BRA 


LF 


FC80: 






195 * 






FC80;BD 


15 


FF 


196 GETINDX 


LDA 


INDX.X 


FC83:A0 


00 




197 


LDY 


*0 


FC85:e0 






198 CRRTS 


RTS 




FC86: 






199 • 






FC8e:AS 


25 




200 NEWVTAB 


LDA 


CV 


FC88;8D 


FB 


05 


201 NEWVTABZ 


STA 


OURCV 


FC8B:80 


97 


FC24 


202 


BRA 


VTABZ 


FC8D: 






203 • 






FC8D:20 


9D 


CC 


204 NEWCLREOL 


JSR 


OETCUR 


FC90:A9 


A0 




205 NEWCLEOLZ 


LDA 


#$A0 


FC92:2C 


7B 


06 


206 


BIT 


VFACTV 


FC95:30 


02 


FC99 


207 


BMI 


NEWC1 


FC97:25 


32 




208 


AND 


INVFLG 


FC99:4C 


C2 


CB 


209 NEWC1 


JMP 


DOCLR 


FC9C: 






210 * 






FC9Ci80 


EF 


FC8D 


211 CLREOL 


BRA 


NEWCLREOL 


FC9E:80 


F0 


FC90 


212 CLEOLZ 


BRA 


NEWCLEOLZ 


FCA0: 






213 • 






FCA0:A0 


00 




214 CLRLIN 


LDY 


*0 


FCA2!80 


EC 


FC90 


215 


BRA 


NEWCLEOLZ 


FCA4: 






216 • 






FCA4:7C 


2A 


CD 


217 CTLDD 


JMP 


(CTLADR.X) 


FCA7: 






218 » 






FCA7:EA 






219 


NOP 




FCA8: 






220 * 






FCA8:38 






221 WAIT 


SEC 




FCA9:48 






222 WAIT2 


PHA 




FCAA:E9 


01 




223 WAIT3 


SBC 


*$01 


FCAC:D0 


FC 


FCAA 


224 


BNE 


WAIT3 


FCAE:68 






225 


PLA 




FCAF:E9 


01 




226 


SBC 


*$01 


FCB1 :D0 


F6 


FCA9 


227 


BNE 


WAITS 


FCB3:60 






228 RTS6 


RTS 




FCB4: 






229 * 






FCB4:E6 


42 




230 NXTA4 


INC 


A4L 


FCB6:D0 


02 


FCBA 


231 


BNE 


NXTA1 


FCB8:E6 


43 




232 


INC 


A4H 


FCBAiAB 


3C 




233 NXTA1 


LDA 


AIL 



31-MAY-85 PAGE 78 
ibefore clearing page 
;only LF If not Pascal 

INCR CURSOR V. (DOWN 1 LINE) 



OFF SCREEN? 
set base+WNDLFT 
DECR CURSOR V. (BACK TG BOTTOM) 



! scrol 1 the screen 

;set CH's to 

;l5 it Pascal? 

; pascal , no LF 

;else clear escape mode 

; then do LF 

jlookup index for mnemonic 
jexlt with BEQ 



; update //e CV 

;and calc base+WNDLFT 

;get current cursor 

; get a blank 

;if video firmware active, 

;">don't use Inverse mask 

; go do c lear 

;get cursor and clear 
;clear from Y 

; c lear entire line 



;jump to proper routine 



I 1 .0204 USEC 
|C13+2712»AtS12*A*A) 



; INCR 2-BYTE A4 
; AND A1 



INCR 2-BYTE A1 . 



.ppeiKl) 



[''irmwarc; Listing 



20 AUTDST2 






App 


le //c F8 


monl t 


or firmwar 


FCBC 


:C5 


3E 






234 




CMP 


A2L 


FCBE 


:AS 


3D 






235 




LDA 


A1H 


FCC0 


.■E5 


3F 






236 




SBC 


A2H 


FCC2 


:E6 


3C 






237 




INC 


AIL 


FCM 


:D0 


02 




FCC8 


238 




BNE 


RTS4B 


FCCG 


:E6 


3D 






239 




INC 


A1H 


FCC8 


:60 








240 


RTS4B 


RTS 




FCC9 










241 


* 






FCC9 


:60 








242 


HEADR 


RTS 




FCCA 










243 


« 






FCCA 


!a0 


B0 






244 


CQLDSTART 


LDY 


#$B0 


FCCC 


;64 


3C 






245 




ST2 


AIL 


FCCE 


:A2 


BF 






246 




LDX 


*$BF 


FCD0 


:86 


3D 






247 


BLAST 


STX 


A1H 


FCD2 


:A9 


A0 






248 




LDA 


#$A0 


FCD4 


:91 


3C 






249 




STA 


CAID.Y 


FCD6 


:88 








250 




DEY 




FCD7 


:91 


3C 






251 




STA 


tAID.Y 


FCD9 


:CA 








252 




DEX 




FCDA 


■E0 


01 






253 




CPX 


#1 


FCDC 


D0 


F2 




FCD0 


254 




BNE 


BLAST 


FCDE 










255 


« 






FCDE 


8D 


01 


C0 




256 




STA 


SET80COL 


FCE1 


AD 


55 


C0 




257 




LDA 


TXTPAGE2 


FCE4 


A2 


88 






258 




LDX 


#$88 


FCE6 


BD 


8B 


CF 




259 


CDM1 


LDA 


COMTBL-1 


FCE9 


90 


0A 




FCF5 


260 




BCC 


COM2 


FCEB 


DD 


77 


04 




261 




CMP 


$477, X 


FCEE 


18 








262 




CLC 




FCEF 


D0 


04 




FCFS 


263 




BNE 


COM2 


FCF1 


E0 


82 






264 




CPX 


#$82 


FCF3 


90 


06 




FCFB 


265 




BCC 


COM3 


FCF5 


9D 


77 


04 




266 


COM2 


STA 


$477, X 


FCF8 


CA 








267 




DEX 




FCF9 


D0 


EB 




FCE6 


268 




BNE 


C0M1 


FCFB 


AD 


54 


C0 




269 


caM3 


LDA 


TXTPAGE1 


FCFE 


8D 


00 


C0 




270 




STA 


CLR80COL 


FD01 


60 








271 




RTS 




FD02 


EA 








272 




NOP 




FD03 


EA 








273 




NOP 




FD04 


EA 








274 




NOP 




FD05 


EA 








275 




NOP 




FD06 


EA 








276 




NOP 




FD07 


EA 








277 




NOP 




FD08. 


EA 








278 




NOP 




FD09: 


EA 








279 




NOP 




FD0fi: 


EA 








280 




NOP 




FD0B: 


EA 








281 




NOP 




FD0C: 










282 


tt 






FD0C: 


A4 


24 






283 


RDKEY 


LDY 


CH 


FD0E: 


B1 


28 






284 




LDA 


CBASL),Y 


FD10: 


EA 








285 




NOP 




FD11: 


EA 








286 




NOP 




FD12: 


EA 








287 




NOP 




FD13: 


EA 








288 




NOP 




FD14: 


EA 








289 




NOP 




FD15: 


EA 








290 




NOP 




FD16: 


EA 








291 




NOP 
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AND COMPARE TO A2 
(CARRY SET IF >=) 



; don' t do it 
;let it prece55 down 
;5tart from BFXX down 
; 5 tore blanks 



;back down to next page 
; 5 tay away from stack 
;faU into CDMINIT 

init ALT screen holes 

for serial and comm ports 

C = 1 from CPX #1 

XFER from rom 

branch if defaults ok 

test for prior setup 

branch if not valid 

If $4F8 & $4FF = TBL values 



;move all 8 . 



;restore switches 
;to default states 



;get char at current position 
; f or those who restore it 
;if a program controls input 
;hooks, no cursor may be displayed 



132 



Appendix A: Firmware Listing 



20 AUTDSia 




Apple //c F8 


monl t 


or firmwar 


FD17:EA 




292 


NOP 




FD18: 




293 • 






FD18:6C 38 


00 


294 KEYIN0 


JMP 


(KSWL) 


FD1B: 




295 * 






FD1B:91 28 




296 KEYIN 


STA 


CBASD.Y 


FD1D:20 4C 


CC 


297 


JSR 


SHONCUR 


FD20:20 70 


CC 


298 DONXTCUR 


JSR 


UPDATE 


FD23: 10 FB 


FD20 


299 


BPL 


DONXTCUR 


FD2B:48 




300 GOTKEY 


PHA 




FD26:A9 08 




301 


LDA 


'M.CTL 


FD28:2C FB 


04 


302 


BIT 


VMQDE 


FD2B:D0 ID 


FD4A 


303 


BNE 


N0ESC2 


FD2D:68 




304 


PLA 




FD2E:C9 SB 




305 


CMP 


*ESC 


FD30:D0 06 


FD38 


306 


BNE 


LOOKPICK 


FD32:4C CC 


CC 


307 


JMP 


NEWESC 


FD35: 




308 * 






FD35:4C ED 


CC 


309 RDCHAR 


JMP 


ESCRDKEY 


FD38: 




310 » 






FD38:2C 7B 


06 


311 LOOKPICK 


BIT 


VFACTV 


FD3B!30 07 


FD44 


312 


BMI 


NOESCAPE 


FD3D:C9 95 




313 


CMP 


#PICK 


FD3F:D0 03 


FD44 


314 


BNE 


NOESCAPE 


FD41:20 1D 


CC 


315 


JSR 


PICKY 


FD44: 




316 • 






FD44: 




317 • NOESCAPE Is 


used by GE" 


FD44: 




318 • 






FD44:48 




319 NOESCAPE 


PHA 




FD45:A9 08 




320 NQESC1 


LDA 


#M.CTL 


FD47!0C FB 


04 


321 


TSB 


VMODE 


FD4A:e8 




322 NQESC2 


PLA 




FD4B:e0 




323 


RTS 




FD4C: 




324 • 






FD4C:EA 




325 


NOP 




FD4D: 




326 * 






FD4D:20 A6 


C3 


327 NOTCR 


JSR 


GETCOUT 


FD50:C9 88 




328 


CMP 


#$88 


FD52:F0 1D 


FD71 


329 


BEQ 


BCKSPC 


FD54:C9 98 




330 


CMP 


*$98 


FD56:F0 0A 


FD62 


331 


BEQ 


CANCEL 


FD58:E0 F8 




332 


CPX 


#$F8 


FDSA:90 03 


FD5F 


333 


BCC 


N0TCR1 


FD5C:20 3A 


FF 


334 


JSR 


BELL 


FD5F:E8 




335 NDTCR1 


INX 




FD60:D0 13 


FD75 


336 


BNE 


NXTCHAR 


FD62:A9 DC 




337 CANCEL 


LDA 


'$DC 


FDe4!20 A6 


C3 


338 


JSR 


GETCOUT 


FD67:20 8E 


FD 


339 GETUNZ 


JSR 


CRQUT 


FD6A:A5 33 




340 GETLN 


LDA 


PROMPT 


FD6C:20 ED 


FD 


341 


JSR 


CQUT 


FDeF:A2 01 




342 GETLN1 


LDX 


<'$01 


FD71 :8A 




343 BCKSPC 


TXA 




FD72!F0 F3 


FD67 


344 


BEQ 


GETLNZ 


FD74:CA 




345 


DEX 




FD7S!20 ED 


CC 


346 NXTCHAR 


JSR 


ESCRDKEY 


FD78:C9 95 




347 


CMP 


#PICK 


FD7A:D0 08 


FD84 


348 


BNE 


ADDINP 


FD7C:20 1D 


CC 


349 


JSR 


PICKY 
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;Ga TO USER KEY-IN 

;era5e false images 

jdispiay true cursor 

ilook for key, blink II cursor 

;loop until keypress 

; save character 

;were escapes enabled? 

''>no, there is no escape 

yes, there may be a way out!! 

escape? 

=>no escape 

">go do escape sequence 

;do RDKEY with escapes 

;only process f. arrow 

;if video firmware is active 

iwas it PICK? C->,CTL-U) 

; no , Just return 

;ye5, pick the character 

too . 

; save 1 t 

jdisable escape sequences 
iand enable controls 
jby setting M.CTL 



;disable controls and print 
;CHECK FOR EDIT KEYS 

- BACKSPACE 

- CONTROL-X 

MARGIN? 

YES, SOUND BELL 
ADVANCE INPUT INDEX 

BACKSLASH AFTER CANCELLED LINE 

OUTPUT 'CR' 
OUTPUT PROMPT CHAR 

INIT INPUT INDEX 

WILL BACKSPACE TO 

;do new RDCHAR (allow escapes) 

;USE SCREEN CHAR 

; FOR CDNTROL-U 
;lift char from screen 



ApDcndix A; Fin 



List) 



20 AUT0ST2 


Apple //c F8 


moni t 


or firmwc 


FD7F:Eft 


3B0 


NOP 




FD80:EA 


3B1 


NOP 




FD81:EA 


3B2 


NOP 




FD82!EA 


3B3 


NOP 




FD83:EA 


3S4 


NOP 




FD84:9D 00 02 


3B5 ADDINP 


STA 


IN,X 


FD87:C9 8D 


356 


CMP 


#$8D 


FD89:D0 C2 FD4D 


357 


BNE 


NOTCR 


FD8B:20 9C FC 


3B8 CR0UT1 


JSR 


CLREOL 


FD8E:fi9 8D 


3B9 CRQUT 


LDA 


#$8D 


FD90:D0 5B FDED 


360 


BNE 


COUT 


FD92! 


361 * 






FD92:fl4 3D 


362 PRA1 


LDY 


A1H 


FD94:A6 3C 


363 


LDX 


AIL 


FD96:20 8E FD 


364 PRYX2 


JSR 


CROUT 


FD99:2B 40 F9 


365 


JSR 


PRNTYX 


FD9C:A0 00 


366 


LDY 


#$00 


FD9E!A9 AD 


367 


LDA 


*$AD 


FDA0:4C ED FD 


368 


JMP 


COUT 


FDA3: 


369 * 






FDA3:A5 3C 


370 XAM8 


LDA 


AIL 


FDA5:09 07 


371 


ORA 


#$07 


FDA7:85 3E 


372 


STA 


A2L 


FDA9!AB 3D 


373 


LDA 


A1H 


FDAB:8B 3F 


374 


STA 


A2H 


FDAD:A5 3C 


37S MODBCHK 


LDA 


AIL 


FDAF:29 07 


376 


AND 


#$07 


FDB1:D0 03 FDB6 


377 


BNE 


DATAOUT 


FDB3:20 92 FD 


378 XAM 


JSR 


PRA1 


FDB6:A9 A0 


379 DATAOUT 


LDA 


#$A0 


FDB8:20 ED FD 


380 


JSR 


COUT 


FDBB:B1 3C 


381 


LDA 


(A1L),Y 


FDBD:20 DA FD 


382 


JSR 


PRBYTE 


FDC0:20 BA FC 


383 


JSR 


NXTA1 


FDC3:90 E8 FDAD 


384 


BCC 


MODBCHK 


FDC5:60 


385 RTS4C 


RTS 




FDCG: 


386 • 






FDCG:4A 


387 XAMPM 


LSR 


A 


FDC7:90 EA FDB3 


388 


BCC 


XAM 


FDC9:4A 


389 


LSR 


A 


FDCA:4A 


390 


LSR 


A 


FDCB:A5 3E 


391 


LDA 


A2L 


FDCD:90 02 FDD1 


392 


BCC 


ADD 


FDCF:49 FF 


393 


EQR 


#$FF 


FDD1:65 3C 


394 ADD 


ADC 


AIL 


FDD3:48 


39B 


PHA 




FDD4:A9 BD 


396 


LDA 


#$BD 


FDD6:20 ED FD 


397 


JSR 


COUT 


FDD9:e8 


398 


PLA 




FDDA: 


399 • 






FDDA:48 


400 PRBYTE 


PHA 




FDDB:4A 


401 


LSR 


A 


FDDC:4A 


402 


LSR 


A 


FDDD:4A 


403 


LSR 


A 


FDDE:4A 


404 


LSR 


A 


FDDF:20 EB FD 


405 


JSR 


PRHEXZ 


FDE2:68 


406 


PLA 




FDE3: 


407 * 







31-MAY-8S 



PAGE 81 



;no upshifting needed 

;ADD TO INPUT BUFFER 

;CLR TO EOL IF CR 
iCALWAYS) 
iPRINT CR.AI IN HEX 

;PRINT '-' 



;SET TO FINISH AT 
; MOD 8=7 



; OUTPUT BLANK 

;OUTPUT BYTE IN HEX 

iNOT DONE YET. GO CHECK MOD 8 
;DONE. 

;DETERMINE IF MONITOR MODE IS 
; EXAMINE, ADD OR SUBTRACT 



;FORM 2'S COMPLEMENT FOR SUBTRACT. 
;PRINT '-', THEN RESULT 



;PRINT BYTE AS 2 HEX DIGITS 
; (DESTROYS A-REG) 



Appendix A: Firmware 
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App 


le //c F8 


moni t 


or firmware 
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FDE3 


:29 


0F 






408 


PRHEX 


AND 


#$0F 


PRINT HEX DIGIT IN A-REG 


FDES 


:09 


B0 






409 


PRHEXZ 


DRA 


#$B0 


LSBITS ONLY. 


FDE7 


:C9 


BA 






410 




CMP 


#$BA 




FDE9 


:90 


02 




FDED 


411 




BCC 


COUT 




FDEB 


:69 


06 






412 




ADC 


#$06 




FDED 










413 


* 








FDED 


'ec 


36 


00 




414 


cauT 


JMP 


(CSWL) ;VECTOR TD USER OUTPUT ROUTINE 


FDF0 










415 


« 








FDF0 


2C 


7B 


06 




416 


C0UT1 


BIT 


VFACTV ;vldeo firmware active? 


FDF3 


4C 


B4 


FB 




417 




JMP 


D0C0UT1 ;ma5k II mode characters 


FDF6 


84 


35 






418 


cauTZ 


STY 


YSAV1 ;SAVE Y-REG 


FDF8 


48 








419 




PHA 


;SAVE A -REO 


FDF9 


20 


78 


FB 




420 




JSR 


VIDWAIT ;OUTPUT CHR AND CHECK FOR CTRL-S 


FDFC 


68 








421 




PLA 


;RESTORE A-REG 


FDFD 


A4 


35 






422 




LDY 


YSAV1 ;AND Y-REG 


FDFF 


60 








423 




RTS 


;RETURN TO SENDER. . . 


FE00 










424 


• 








FEB0 


C6 


34 






425 


BL1 


DEC 


YSAV 




FE02 


F0 


9F 




FDA3 


426 




BEQ 


XAM8 




FE04 










427 


« 








FE04 


CA 








428 


BLANK 


DEX 




BLANK TO MDN 


FE0B 


D0 


16 




FE1D 


429 




BNE 


SETMDZ 


AFTER BLANK 


FE07 


C9 


BA 






430 




CMP 


*$BA 


DATA STORE MODE? 


FE09 


D0 


BE 




FDC6 


431 




BNE 


XAMPM 


NO; XAM, ADD, OR SUBTRACT. 


FE0B 










432 


» 








FE0B 


8S 


31 






433 


STOR 


STA 


MODE 


KEEP IN STORE MODE 


FE0D 


A5 


3E 






434 




LDA 


A2L 




FE0F 


91 


40 






435 




STA 


CA3L),Y 


STORE AS LOW BYTE AT (A3) 


FE11 


E6 


40 






436 




INC 


A3L 




FE13 


D0 


02 




FE17 


437 




BNE 


RTS5 


INCR A3, RETURN. 


FE15 


E6 


41 






438 




INC 


A3H 




FE17 


60 








439 


RTS5 


RTS 






FE18 










440 


« 








FE18 


A4 


34 






441 


SETMODE 


LDY 


YSAV 


SAVE CONVERTED ':', '*', 


FE1A 


B9 


FF 


01 




442 




LDA 


IN-1 ,Y 


'-', '.' AS MODE 


FE1D 


85 


31 






443 


SETMDZ 


STA 


MODE 




FE1F 


60 








444 




RTS 






FE20 










445 


* 








FE20 


A2 


01 






446 


LT 


LDX 


#$01 




FE22 


B5 


3E 






447 


LT2 


LDA 


A2L,X 


COPY A2 (2 BYTES) TD 


FE24 


95 


42 






448 




STA 


A4L,X 


A4 AND A5 


FE26 


95 


44 






449 




STA 


A5L,X 




FE28 


CA 








450 




DEX 






FE29 


10 


F7 




FE22 


451 




BPL 


LT2 




FE2B 


60 








452 




RTS 






FE2C 










453 


« 








FE2C 


B1 


3C 






454 


MOVE 


LDA 


CAID.Y 


MOVE (AD THRU (A2) TO (A4) 


FE2E 


91 


42 






455 




STA 


(A4L),Y 




FE30 


20 


B4 


FC 




456 




JSR 


NXTA4 




FE33 


90 


F7 




FE2C 


457 




BCC 


MOVE 




FE3B 


60 








458 




RTS 






FE36 










459 


# 








FE36 


B1 


3C 






460 


VERIFY 


LDA 


(A1L),Y 


VERIFY (AD THRU (A2) 


FE38 


D1 


42 






461 




CMP 


(A4L),Y 


WITH (A4) 


FE3fl 


F0 


1C 




FE58 


462 




BEQ 


VFYOK 




FE3C 


20 


92 


FD 




463 




JSR 


PRA1 




FE3F 


B1 


3C 






464 




LDA 


(A1L),Y 




FE41 


20 


DA 


FD 




465 




JSR 


PRBYTE 





Apjieridix A: Firmware Listing 



20 AUTDST2 




Apple //g F8 


monl t 


or firmwar 


FE44:A9 A0 




466 


LDA 


#$A0 


FE46:a0 ED 


FD 


467 


JSR 


CDUT 


FE49:A9 A8 




468 


LDA 


*$A8 


FE4B:2a ED 


FD 


469 


JSR 


COUT 


FE4E:B1 42 




470 


LDA 


CA4L),Y 


FE50:20 DA 


FD 


471 


JSR 


PRBYTE 


FE53:A9 A9 




472 


LDA 


*te\3 


FE55:20 ED 


FD 


473 


JSR 


COUT 


FE58:20 B4 


FC 


474 VFYOK 


JSR 


NXTA4 


FE5B:90 D9 


FE36 


475 


BCC 


VERIFY 


FE5D:60 




476 


RTS 




FE5E: 




477 » 






FE5E:20 75 


FE 


478 LIST 


JSR 


A1PC 


FE61:A9 14 




479 


LDA 


*$14 


FE63!48 




480 LIST2 


PHA 




FEG4:20 C4 


C5 


481 


JSR 


SHOWINST 


FE67:68 




482 


PLA 




FE68:3A 




483 


DEC 


A 


FEe9!DB F8 


FE63 


484 


BNE 


LIST2 


FE8B:60 




485 


RTS 




FE6C: 




486 » 






FE6C:4C 86 


C9 


487 MINI 


JMP 


GETINST1 


FEGFiCG 34 




488 TRACE 


DEC 


YSAV 


FE71:4C 43 


CA 


489 STEP2 


JMP 


STEP 


FE74: 


0001 


490 


ds 


$FE75-«, 


FE7S: 




491 • 






FE7S:8A 




492 A1PC 


TXA 




FE76:F0 07 


FE7F 


493 


BEQ 


A1PCRTS 


FE78:B5 3C 




494 A1PCLP 


LDA 


AIL.X 


FE7A:95 3A 




495 


STA 


PCL.X 


FE7C:CA 




496 


DEX 




FE7D:10 F9 


FE78 


497 


BPL 


A1PCLP 


FE7F:60 




498 A1PCRTS 


RTS 




FE80: 




499 * 






FE80:A0 3F 




500 SETINV 


LDY 


*$3F 


FE82:D0 02 


FE86 


501 


BNE 


SETIFLG 


FE84:AB FF 




502 SETNORM 


LDY 


#$FF 


FE86:84 32 




503 SETIFLG 


STY 


INVFLG 


FE88:60 




504 


RTS 




FE89: 




505 » 






FE89:A9 00 




506 SETKBD 


LDA 


*$00 


FE8B:85 3E 




507 IMPORT 


STA 


A2L 


FE8D:A2 38 




508 INPRT 


LDX 


#KSWL 


FE8F:A0 1B 




509 


LDY 


#KEYIN 


FE91:D0 08 


FE9B 


510 


BNE 


lOPRT 


FE93: 




511 • 






FE93!A9 00 




512 SETVID 


LDA 


*$0 


FE95:85 3E 




513 QUTPORT 


STA 


A2L 


FE97:A2 38 




514 QUTPRT 


LDX 


*CSWL 


FE99:A0 F0 




515 


LDY 


#C0UT1 


FE9B:A5 3E 




516 lOPRT 


LDA 


A2L 


FE9D:29 0F 




517 


AND 


#$0F 


FE9F:D0 06 


FEA7 


518 


BNE 


NOTPRT0 


FEA1:C0 1B 




519 


CPY 


#KEYIN 


FEA3!F0 39 


FEDE 


520 


BEQ 


I0PRT1 


FEA5:80 IB 


FEC2 


521 


BRA 


DPRT0 


FEA7:09 C0 




522 NQTPRTB 


ORA 


#<IOADR 


FEA9:A0 00 




523 


LDY 


*$00 
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;MOVE A1 (2 BYTES) TO 
; PC IF SPEC'D AND 

;+DISASSEMBLE 20 INSTRUCTIONS. 
;tDl5play a line 

I +Courit down 



i+Go to the mini assembler 
;+Stay on T for trace 
;+Off to the step routine 
! +Ext ra bytes 

!IF USER SPECIFIED AN ADDRESS, 
i COPY IT FROM A1 TO PC. 
lYEP, SO COPY IT. 



SET FDR INVERSE VID 

VIA C0UT1 
SET FOR NORMAL VID 



;D0 'IN#0' 
;D0 'IN#AREG' 



;D0 'PR#0' 
iDD 'PR#AREG' 



; no t slot 
;Continue if KEYIN 



;=>do PR#e 
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FEAB 
FEAD 
FEAF 
FEB0 
FEB0 
FEB3 
FEB3 
FEBG 
FEBG 
FEB9 
FEBC 
FEBF 
FEBF 
FEC2 
FEC2 
FEC3 
FEC6 
FEC8 
FECA 
FECA 
FECD 
FECD 
FECE 
FECE 
FED1 
FED4 
FED7 
FED8 
FED9 
FEDC 
FEDD 
FEDE 
FEE0 
FEE2 
FEE2 
FEE2 
FEE2 
FEE2 
FEE2 
FEE2 
FEE3 
FEES 
FEE7 
FEE9 
FEE9 
FEES 
FEEC 
FEED 
FEEE 
FEF1 
FEF2 
FEFS 
FEF6 
FEF6 
FEF9 
FEFA 
FEFB 
FEED 



:94 00 

:9B 01 
:60 

:4C 00 E0 

:4C 03 E0 

:20 75 FE 

:20 3F FF 

:6C 3A 00 

:4C D7 FA 

: 3A 

IsD FB 07 

:A9 F7 

:80 04 FECE 

:4C F8 03 

:60 

:8D 7B 06 

:8D 0E C0 

:0C FB 04 

:DA 

:5A 

;20 CD CD 

:7A 

:FA 

:A9 FD 

;80 C9 FEAB 



5A 

20 9D CC 

88 

80 0B FEEE 

A9 01 

3A 

5A 

A8 

20 AD CC 

7A 

AD 7B 05 

60 

20 00 FE 

68 

68 

D0 6C FF69 



524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 



IDPRT2 

XBASIC 

BASCONT 

# 

GO 

4 

REGZ 
DPRT0 

USR 

* 

WRITE 

* 

DQPR0 



IDPRT1 



STY 
STA 
RTS 

JMP 

JMP 

JSR 
JSR 
JMP 

JMP 

DEC 
STA 
LDA 
BRA 

JMP 

RTS 

STA 
STA 
TSB 
PHX 
PHY 
JSR 
PLY 
PLX 
LDA 
BRA 



LOC0,X 
LOCI ,X 



BASIC 

BASIC2 

A1PC 

RESTORE 

(PCD 

REGDSP 

A 

CURSOR 

**FF-M.CTL 

DDPR0 

USRADR 



VFACTV 

CLRALTCHAR 

VMODE 



CHK80 



#<C0UT1 
iaPRT2 



;T0 BASIC, COLD START 

;T0 BASIC, WARM START 

;ADDR TO PC IF SPECIFIED 
;RESTDRE FAKE REGISTERS 
; AND GO! 

;G0 DISPLAY REGISTERS 

;Need $FF 

;5et checkerboard cursor 

\ reset mode 

;JUMP TO CONTROL-Y VECTOR IN RAM 

;Tape write not needed 

; say video firmware inactive 
;5witch in normal char set 
;don't change M.CTL 
; save X and Y 
;for rest of PR*0 
;convert to 40 if needed 



; se t I/O page 

;=>go set output hook 



* DECCH decrements the current cursor 

* CLRCH sets all cursors to 

* SETCUR sets cursors to value in Ace. 

* See explanatory note with GETCUR 



DECCH 



CLRCH 

WDTHCH 

SETCUR 

SETCUR1 



CRMON 



PHY 
JSR 
DEY 
BRA 

LDA 
DEC 
PHY 
TAY 
JSR 
PLY 
LDA 
RTS 

JSR 
PLA 
PLA 
BNE 



GETCUR 
SETCUR1 



#1 
A 



GETCUR2 
OURCH 



BL1 



MONZ 



;Cfrom $FC10) 
;get current CH 
jdecrement it 
; go update cursors 

jset all cursors to 

;dec window width (from $FC17) 

;5ave Y 

;need value in Y 

; save new CH 

; res tore Y 

;and get new CH into ace 

;(Need LDA to set flags) 

HANDLE CR AS BLANK 

THEN POP STACK 

AND RETURN TO MON 
(ALWAYS) 
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20 AUTQST2 

FEFD:60 

FEFE: 

FEFE: 

FEFE: 

FEFE: 

FEFE: 12 

FEFF:14 

FF00:1A 

FF01 : 1C 

FF02:32 

FF03:34 

FF04:3A 

FF0B:3C 

FF06:52 

FF07:5A 

FF08:64 

FF09:72 

FF0A:74 

FF0B:7A 

FF0C:7C 

FF0D:89 

FF0E:92 

FF0F:9C 

FF10:9E 

FF11:B2 

FF12:D2 

FF13:F2 

FF14:FC 

FF1B: 

FF1S: 

FF1B: 

FF1S: 

FF1B: 

FF1B: 

FF1B:38 

FF16:FB 

FF17:37 

FF18:FB 

FF19:39 

FF1A:21 

FF1B:36 

FF1C:21 

FF1D:3A 

FF1E:F8 

FF1F:FA 

FF20:3B 

FF21:FA 

FF22:F9 

FF23:22 

FF24:21 

FF2B:3C 

FF26:FA 

FF27:FA 

FF28:3D 

FF29:3E 

FF2A:3F 

FF2B:FC 

FF2C:00 



Apple //c F8 monitor firmware 



31-MAY-8S 



PAGE 8B 



0016 



S82 

B83 

S84 

B8B 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 



READ 



RTS 



;Tape read not needed 



□PTBL Is a table containing the new opcodes that 
* wouldn't fit into the existing lookup table. 



OPTBL 



NUMOPS 



DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

DFB 

EQU 



$12 

$14 

«1A 

$1C 

$32 

$34 

$3A 

$3C 

$B2 

$5A 

$64 

$72 

$74 
$7A 
$7C 
$89 
$92 
$9C 
$9E 
$B2 
$D2 
$F2 
$FC 
»-0PTBL-1 



ORA CZPAG) 

TRB ZPAG 

INC A 

TRB ABS 

AND CZPAG) 

BIT ZPAG.X 

DEC A 

BIT ABS.X 

EOR CZPAG) 

PHY 

STZ ZPAG 

ADC CZPAG) 

STZ ZPAG.X 

PLY 

JMP CABS,X) 

BIT I MM 

STA CZPAG) 

STZ ABS 

STZ ABS.X 

LDA CZPAG) 

CMP CZPAG) 

SBC CZPAG) 

??? Cthe unknown opcode) 

number of bytes to check 



INDX contains pointers to the mnemonics for each of 

• the opcodes in OPTBL. Pointers with BIT 7 

* set indicate extensions to MNEML or MNEMR . 

INDX 



DFB 


$38 


DFB 


$FB 


DFB 


$37 


DFB 


$FB 


DFB 


$39 


DFB 


$21 


DFB 


$36 


DFB 


$21 


DFB 


$3A 


DFB 


$F8 


DFB 


$FA 


DFB 


$3B 


DFB 


$FA 


DFB 


$F9 


DFB 


$22 


DFB 


$21 


DFB 


$3C 


DFB 


$FA 


DFB 


$FA 


DFB 


$3D 


DFB 


$3E 


DFB 


$3F 


DFB 


$FC 


BRK 
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20 AUT0ST2 




Appl 


e //c F8 


moni t 


or firmware 


FF2D: 






640 


# 






FF2D:A9 


C5 




641 


PRERR 


LDA 


#$C5 ; 


FF2F:20 


ED 


FD 


642 




JSR 


COUT ; 


FF32:A9 


D2 




643 




LDA 


#$D2 


FF34:20 


ED 


FD 


644 




JSR 


COUT 


FF37:20 


ED 


FD 


645 




JSR 


CQUT 


FF3A: 






646 


# 






FF3A:A9 


87 




647 


BELL 


LDA 


#$87 ; 


FF3C:<»C 


ED 


FD 


648 




JMP 


COUT 


FF3F: 






649 


* 






FF3F:A5 


48 




650 


RESTORE 


LDA 


STATUS ; 


FF41 :f8 






651 




PHA 




FF42:A5 


45 




652 




LDA 


ASH 


FF44:A6 


46 




653 


RESTR1 


LDX 


XREG 


FF4e:A4 


47 




654 




LDY 


YREO 


FF48:28 






655 




PLP 




FF49:60 






656 




RTS 




FF4A: 






657 


« 






FF4A:85 


4S 




658 


SAVE 


STA 


ASH ; 


FF4C:86 


4e 




659 


SAV1 


STX 


XREG ; 


FF4E:84 


47 




660 




STY 


YREG 


FF50:08 






661 




PHP 




FF51 :e8 






662 




PLA 




FF52:85 


48 




663 




STA 


STATUS 


FF54!BA 






664 




TSX 




FF55:86 


49 




665 




STX 


SPNT 


FF57:D8 






666 




CLD 




FF58:e0 






667 




RTS 




FFS9! 






668 


« 






FFS9:20 


84 


FE 


669 


DLDRST 


JSR 


SETNORM ; 


FF5C:20 


2F 


FB 


670 




JSR 


INIT ; 


FF5F;20 


93 


FE 


671 




JSR 


SETVID ; 


FF62:20 


89 


FE 


672 




JSR 


SETKBD 


FF65: 






673 


* 






FF65:D8 






674 


MON 


CLD 




FF68:20 


3A 


FF 


675 




JSR 


BELL ■ 


FF69:A9 


AA 




676 


MONZ 


LDA 


#$AA ; 


FF6B:85 


33 




677 




STA 


PROMPT 


FF6D:20 


67 


FD 


678 




JSR 


GETLNZ ; 


FF70:20 


C7 


FF 


679 




JSR 


ZMODE ; 


FF73:20 


A7 


FF 


680 


NXTITM 


JSR 


GETNUM ; 


FF7e:84 


34 




681 




STY 


YSAV ; 


FF78:A0 


17 




682 




LDY 


#SUBTBL-CHRTBL 


FF7A:88 






683 


CHRSRCH 


DEY 




FF7B:30 


E8 


FF65 


684 




BMI 


MON 


FF7D:D9 


CC 


FF 


685 




CMP 


CHRTBL.Y ; 


FF80:D0 


F8 


FF7A 


686 




BNE 


CHRSRCH 


FF82:2B 


BE 


FF 


687 




JSR 


TOSUB 


FF85:fi4 


34 




688 




LDY 


YSAV ; 


FF87:4C 


73 


FF 


689 




JMP 


NXTITM 


FF8A: 






690 


« 






FF8A;A2 


03 




691 


DIG 


LDX 


*$03 


FF8C:0A 






692 




ASL 


A 


FF8D:0A 






693 




ASL 


A 


FF8E:0A 






694 




ASL 


A 


FF8F:0A 






695 




ASL 


A 


FF90:0A 






696 


NXTBIT 


ASL 


A 


FF91 :2e 


3E 




697 




ROL 


A2L 
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PRINT 'ERR', THEN FALL INTO 
FWEEPER. 



;MAKE A JOYFUL NOISE, THEN RETURN. 



RESTORE 6502 REGISTER CONTENTS 
USED BY DEBUG SOFTWARE 



SAVE 6502 REGISTER CONTENTS 
FOR DEBUG SOFTWARE 



SET SCREEN MODE 
AND INIT KBD/SCREEN 
AS I/O DEVS. 



MUST SET HEX MODE! 

FWEEPER. 

'*' PROMPT FOR MONITOR 

READ A LINE OF INPUT 

CLEAR MONITOR MODE, SCAN IDX 

GET ITEM, NON-HEX 

CHAR IN A-REG. 
; X-REG=0 IF NO HEX INPUT 

COMMAND NOT FOUND, BEEP & TRY AGAIN. 

FIND COMMAND CHAR IN TABLE 

NOT THIS TIME 

GOT IT! CALL CORRESPONDING SUBROUTINE 

PROCESS NEXT ENTRY ON HIS LINE 



GOT HEX DIGIT, 
SHIFT INTO A2 
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20 AUTQST2 


Apple //c 


"8 moni 


or firmwar 


FF93:2e 


3F 


698 


ROL 


A2H 


FF95:CA 




699 


DEX 




FF96: 10 


F8 FF90 


700 


BPL 


NXTBIT 


FF98:A5 


31 


701 NXTBAS 


LDA 


MODE 


FF9A:D0 


06 FFA2 


702 


BNE 


NXTBS2 


FF9C:BB 


3F 


703 


LDA 


A2H,X 


FF9E:95 


3D 


704 


STA 


AIH.X 


FFA0:9B 


41 


705 


STA 


A3H,X 


FFA2:E8 




706 NXTBS2 


INX 




FFA3:F0 


F3 FF98 


707 


BEQ 


NXTBAS 


FFA5:D0 


06 FFAD 


708 


BNE 


NXTCHR 


FFA7:A2 


00 


709 GETNUM 


LDX 


'$00 


FFA9:86 


3E 


710 


STX 


A2L 


FFfiB:86 


3F 


711 


STX 


A2H 


FFAD:20 


B4 C5 


712 NXTCHR 


JSR 


GETUP 


FFB0:49 


B0 


713 


EOR 


*$B0 


FFB2:C9 


0A 


714 


CMP 


**0A 


FFB4:90 


D4 FF8A 


715 


BCC 


DIG 


FFB6:69 


88 


716 


ADC 


'»88 


FFB8:C9 


FA 


717 


CMP 


#$FA 


FFBAitC 


C5 CF 


718 


JMP 


LDDKASC 


FFBD:00 




719 


BRK 




FFBE: 




720 * 






FFBE:A9 


FE 


721 TOSUB 


LDA 


*<G0 


FFC0:48 




722 


PHA 




FFC1:B9 


E3 FF 


723 


LDA 


SUBTBL.Y 


FFC4:48 




724 


PHA 




FFC5:AB 


31 


725 


LDA 


MODE 


FFC7:A0 


00 


726 ZMODE 


LDY 


#$00 


FFC9:84 


31 


727 


STY 


MODE 


FFCB:60 




728 


RTS 




FFCC: 




729 • 






FFCCiBC 




730 CHRTBL 


DFB 


$BC 


FFCD:B2 




731 


DFB 


$B2 


FFCE:BE 




732 


DFB 


$BE 


FFCF:9A 




733 


DFB 


$9A 


FFD0:EF 




734 


DFB 


$EF 


FFD1 :C4 




735 


DFB 


«C4 


FFD2:A9 




73G 


DFB 


$A9 


FFD3:BB 




737 


DFB 


IBB 


FFD4:fl6 




738 


DFB 


$A6 


FFD5:A4 




739 


DFB 


$A4 


FFDe:06 




740 


DFB 


$06 


FFD7:95 




741 


DFB 


$95 


FFD8:07 




742 


DFB 


$07 


FFD9:02 




743 


DFB 


$02 


FFDA:05 




744 


DFB 


$05 


FFDB:00 




745 


DFB 


$00 


FFDC:93 




746 


DFB 


$93 


FFDD:A7 




747 


DFB 


$A7 


FFDEiCe 




748 


DFB 


$C6 


FFDF:99 




749 


DFB 


$99 


FFE0:EC 




750 


DFB 


$EC 


FFE1:ED 




751 


DFB 


$ED 


FFE2!EA 




752 


NOP 




FFE3: 




753 • 






FFE3: 




754 * Table 


of low 


order moni 


FFE3: 




755 • dispal 


ch addresses . 
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;LEAVE X=$FF IF DIG 



;IF MODE IS ZERO, 

; THEN COPY A2 TO A1 AND A3 



;CLEAR A2 
;Get char, iny, upshift 
;it's a digit 
; + Chec k for quote 



DISPATCH TO SUBROUTINE, BY 
PUSHING THE HI-ORDER SUBR ADDR, 
THEN THE LO-ORDER SUBR ADDR 
ONTO THE STACK, 

(CLEARING THE MODE, SAVE THE OLD 
MODE IN A-REG), 

AND 'RTS' TO THE SUBROUTINE! 



'CR 
BLA 
+ S 



(BASIC WARM START) 
(USER VECTOR) 

(OPEN AND DISPLAY REGISTERS) 
(Mini assembler) 
(MEMORY VERIFY) 
(IN#SLOT) 
(PR*SLDT) 

(BASIC COLD START) 
(SUBTRACTION) 
(ADDITION) 
(MEMORY MOVE) 
(DELIMITER FOR MOVE, VFY) 
(SET NORMAL VIDEO) 
(SET INVERSE VIDEO) 
(DISASSEMBLE 20 INSTRS) 
(EXECUTE PROGRAM) 
(MEMORY FILL) 
(ADDRESS DELIMITER) 
(END OF INPUT) 
NK 
(Step) 
(Trace) 



rout ine 



Appendix A: Firmware Listing 



20 AUTaST2 


FFE3 




FFE3 


B2 


FFE4 


C9 


FFE5 


BE 


FFE6 


6B 


FFE7 


35 


FFE8 


8C 


FFE9 


96 


FFEA 


AF 


FFEB 


17 


FFEC 


17 


FEED 


2B 


FFEE 


1F 


FFEF 


83 


FFF0 


7F 


FFF1 


5D 


FFF2 


B5 


FFF3 


17 


FFF4 


17 


FFFS 


FS 


FFF6 


03 


FFF7 


70 


FFFS 


6E 


FFF9 




FFF9 




FFFA 




FFFA 


FB 03 


FFFC 


82 FA 


FFFE 


03 C8 


eeee 
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0001 



756 * 

757 SUBTBL 


DFB 


>BASC0NT-1 


758 


DFB 


>USR-1 


759 


DFB 


>REG2-1 


760 


DFB 


>MINI-1 


761 


DFB 


>VERIFY-1 


762 


DFB 


>INPRT-1 


763 


DFB 


>0UTPRT-1 


764 


DFB 


>XBASIC-1 


765 


DFB 


>SETM0DE-1 


766 


DFB 


>SETM0DE-1 


767 


DFB 


>MDVE-1 


768 


DFB 


>LT-1 


769 


DFB 


>SETN0RM-1 


770 


DFB 


>SETINV-1 


771 


DFB 


>LIST-1 


772 


DFB 


>G0-1 


773 


DFB 


>SETM0DE-1 


774 


DFB 


>SETMaDE-1 


775 


DFB 


>CRMQN-1 


776 


DFB 


>BLANK-1 


777 


DFB 


>STEPZ-1 


778 


DFB 


>TRACE-1 


779 » 






780 


ds 


$FFFA-«,0 


781 * 






782 


DM 


NMI 


783 


DW 


RESET 


784 IRQVECT 


DW 


NEWIRQ 


50 


incl 


jde baTik2 



NON-MASKABLE INTERRUPT VECTOR 

RESET VECTOR 

INTERRUPT REQUEST VECTOR 



/ippeiidix 



Listing 



21 BANK2 


eiee-. 


zeee 




zeee 




0000 




0000 




NEXl 


C000 




C000 




C000 
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2 •**»**»••#»»#»»»#####«##»»*####«####«### 

3 • 

4 * Bank 2 of the roms 

5 * 

NEXT OBJECT FILE NAME IS /BU I UD/F IRM. 2 



C000 
0100 



7 

51 

1 



org $C000 
include mint 
ds $C100-*,0 



;Mou5e & sola interrupt handler 



142 
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22 MINT 


C100: 


C100 




C10a 




C1B0 




C100 




C100 




C100 




C100 




C100 




C100 




C100 




C100 




C100 




C100 




C100 


A9 BE 


C102 


1C 7C 07 



Mouse & 5erial interrupt stuff 
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C100 



4 #################«*#»#«###«#»»»*#»###### 

5 * 

6 * Mouse interrupt handler 

7 * 

8 * MDUSEINT - Monitor's interrupt handler 

9 » 

10 * Returns C = if interrupt handled 

11 * If not mouse Interrupt, Goes to aciaint 

12 * New in this rom: 

13 * If D7 of moumode = 1, mouse X and Y interrupts are not processed 

14 * and are passed on to the user. 

15 » 

17 mouseint equ • ;Entry point if X & Y set up 

18 Ida #$0E iClear status bits 

19 trb moustat 



C10S:38 






21 




sec 




C106: 






22 


* Check 


for ver 


tioal blanking 


C106:AD 


19 


C0 


23 




Ida 


vbl Int 


C109: 10 


2B 


CI 36 


24 




bpl 


chkmou 


C10B:8D 


79 


CB 


25 




sta 


iouenbl 


C1BE:A9 


BC 




26 




Ida 


*vblmode 


CI 10:2C 


FC 


07 


27 




bit 


moumode 


C113:D0 


B3 


CI 18 


28 




bne 


cvnovbl 


C115:8D 


SA 


C0 


29 




sta 


iou + 2 


C118:B9 


02 




3B 


cvnovbl 


ora 


#movmode 


C11A:8D 


78 


CB 


31 




sta 


ioudsb 1 


C11D;2C 


7C 


06 


32 




bit 


mouarm 


C12B!DB 


02 


C124 


33 




bne 


cvmoved 


C122:A9 


0C 




34 




Ida 


^vblmode 


C124:2C 


63 


C0 


35 


cvmoved 


bit 


moubu t 


C127:10 


02 


C12B 


36 




bpl 


cvbut 


C129:49 


04 




37 




eor 


*butmode 


C12B:2D 


FC 


07 


38 


cvbut 


and 


moumode 


C12E:0C 


7C 


07 


39 




tsb 


mous tat 


C131 : 1C 


7C 


B6 


4B 




trb 


mouarm 


CI 34: 69 


FE 




41 




adc 


#$FE 


CI 36: 






42 


* Check 


& updat 


e mouse movemen 


CI 36: 




0136 


43 


chkmou 


equ 


» 


CI 36: AD 


FC 


B7 


44 




Ida 


moumode 


C139:30 


72 


C1AD 


45 




bmi 


xmdone 


C13B:AD 


15 


C0 


46 




Ida 


mouxint 


C13E:BD 


17 


C0 


47 




ora 


mouyint 


C141: 10 


6A 


CI AD 


48 




bpl 


xmdone 


C143:8A 






49 




txa 




C144:A2 


0B 




50 




Idx 


'0 


C146:2C 


15 


C0 


51 




bit 


mouxint 


C149:30 


0A 


C1S5 


52 




bmi 


cmxmov 


C14B:98 






53 


omloop 


tya 




C14C:49 


80 




54 




eor 


#$80 


C14E:A2 


80 




55 




Idx 


-CJSB 


C150:2C 


17 


CB 


56 




bit 


mouyint 


C153: 10 


39 


C18E 


57 




bpl 


cmnoy 


C15S:BA 






58 


cmxmov 


asl 


A 


C156:BD 


7C 


B4 


59 




Ida 


mouxl , X 



;A5sume interrupt not handled 
interrupt 
;VBL interrupt? 

;Enable iou access & clear VBL interrupt 
;Should we leave vbl active? 



;Di5able VBL 



;VBL bit in arm isn't used 

; Didn' t move 
jButton pressed? 

;Clear the button bit 

;Which bits were set in the mode 



C=1 if int passes to user 

If D7 = 1, user better handle it 

Mouse interrupt? 

If not return with C from vbl 
;Get XI in A 

; X movement ? 

;Get Y1 into A 
^Complement direction 



;A = current low byte 
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143 



22 MINT 



Mouse & serial Interrupt stuff 



C1S9; 
CIBBi 
C15E; 
CI6B1 
C163i 
C166! 
CI 68; 
CIGB: 
C16D; 
C170; 
C173: 
C17S: 
C178: 
C17A: 
C17D: 
C180: 
C182; 
C185: 
C187: 
C18A: 
C18C: 
C18E: 
C191 : 
CI 93: 
CI 96: 
CI 98: 
C 1 9B ; 
C19E: 
C1A1 : 
C1A3: 
C1A6: 
C1A8: 
C1AB: 
C1AD: 
C1AF: 



Be 1A 
DD 7D 
D0 08 
BD 7C 
DD 7D 



C175 



04 



CI 68 



05 
05 



F0 
BD 
D0 
DE 



C18A 



DE 7C 
80 15 
DD 7D 
D0 08 
BD 7C 
DD 7D 
F0 08 
FE 7C 
D0 03 
FE 7C 
E0 00 
F0 BD 
8D 48 
A9 02 
2D FC 
F0 09 
8D 79 
8D 5B 
8D 78 
09 20 
0C 7C 
A9 0E 
2D 7C 
69 FE 



04 

C 
05 
04 

C 
06 

C 
05 
07 

C 
04 

C 
05 

C 
C0 

07 

C 
C0 
C0 
C0 

06 

07 



C170 



C18A 



C182 



C18A 



C18A 



C14B 



C1A1 



05 
84 



C1B4 



C7 



60 




bcs 


cmrght 


61 




cmp 


minxl , X 


62 




bne 


cmlok 


63 




Ida 


mouxh , X 


64 




cmp 


mi nxh , x 


65 




beq 


cmnoint 


66 


cml ok 


Ida 


mouxl , X 


67 




bne 


cmn 1 


68 




dec 


mouxh , X 


69 


cmn 1 


dec 


mouxl , X 


70 




bra 


cmnoint 


71 


omrght 


cmp 


maxx 1 , X 


72 




bne 


cmrok 


73 




Ida 


mouxh , X 


74 




cmp 


maxxh, x 


75 




beq 


cmnoint 


76 


cmrok 


Inc 


mouxl , X 


77 




bne 


cmnoint 


78 




inc 


mouxh , X 


79 


cmnoint 


cpx 


#0 


80 




beq 


cmloop 


81 


cmnoy 


sta 


moucl r 


82 




Ida 


'movmode 


83 




and 


moumode 


84 




beq 


cmnovbl 


85 




sta 


iouenbl 


86 




sta 


iou + 3 


87 




sta 


loudsbl 


88 


cmnovbl 


ora 


#movarm 


89 




tsb 


mouarm 


90 




Ida 


#$0E 


91 




and 


mous tat 


92 




ado 


'»FE 


93 


xmdone 


bcs 


aclalnt 


94 




Ji^P 


swrts2 
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;Which way? 
;Move left 



;Borrow from high byte? 



iAt high bound? 



;Move right 



;Should we enable VBL? 
iBranch if not 
;Enable VBL Int 
;Mark that we moved 



C=1 iff any bits were 1 
If not handled, try acia 
Back we go 
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C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B2 
C1B3 
CIBI 
C1B4 
C1B7 
C1BA 
C1BA 
C1BC 
C1BF 
C1C1 
C1C2 
C1C5 
C1C7 
C1CA 
C1CC 
C1CE 
C1D1 
C1D4 
C1D6 
C1D8 
CI DA 
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38 

ee 

C1B4 
20 BA CI 
4C 84 C7 

C1BA 
A2 C2 
20 C2 C1 
90, F2 C1B3 
CA 

BC 42 C1 
A9 04 
59 FA BF 
29 0C 

FB E4 C1B2 
B9 F9 BF 
9D 38 04 
10 DC C1B2 
E0 C2 

B0 02 C1DC 
49 40 
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97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
1 11 
1 12 
1 13 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
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urce of 

ther port 
pt was due 
nver ter , or 
5 set i ndi - 

' buffered' 
is serviced 
errupt was 

f either) re- 
must contain 
5 are cause 
ed> rou t i nes . 
eyboard in- 
cessed by 

6 = , key- 
buffer. If 
but must 
tine. If 
d, but the 



notacia 
acdone 
ac iaint 



aciaint 2 



ac iat 5 t 



ai tst2 



sec 
rts 
equ 
] = *" 
J"iP 
equ 
Idx 
jsr 
bcc 
dex 
Idy 
Ida 
eor 
and 
beq 
Ida 
s ta 
bpl 
cpx 
bcs 
eor 



ac iai n t2 
5wr t 52 

# 

*'<com5 lot 
ac iat 5 1 
acdone 

devno2 , x 
#$4 

scomd , y 
#$0C 
notacia 
ss ta t , y 
as tat , X 
notacia 
#<coms lot 
aipor t2 
#$40 



Open-Apple CTRL-X will 
er code is recognized. 
lA that has the transmit 
iginal value of the ACIAs 
rved. Automatic serial input 

from a port so configured, 
om the protocol converter or 
o not inhibit serial buffering 

RAM service routine can rec- 
ce by a 1 state in bit 6 of 

The RAM service routine must 

(bit 6) AND make a second ac- 
er before returning. 



; Not ac ia int 



;Extra jsr since rest needs RTS 



;Test port 2 first 
;Check for interrupt 
;Return if interrupt done 

;Try port 1 

Get index for acia 

If xmit ints enabled pass to user 

Check if D<3>, D<2> = 01 

User better take it! 

Get status 

Save i t away 

No interrupt 

C=1 if com port. Called from seroutS 

I nver t DSR i f port 1 
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22 MINT 






Mouse 


& serla 


il int 


errupt stuf 


C1DC:3C 


38 


05 


154 


ai 


,por t2 


bit 


ext int , X 


C1DF:70 


29 


C20A 


155 






bvs 


aipass 


C1E1: 10 


25 


C208 


156 






bpl 


aieati t 


C1E3:90 


23 


C208 


157 






bco 


aieat i t 


C1E5:89 


40 




158 






bit 


#»40 


C1E7JF0 


21 


C20A 


159 






beq 


ai pass 


C1E9: 






160 


* 


It's a 


keyboard interru 


C1E9:AD 


00 


C0 


161 






Ida 


kbd 


C1EC:AB 


80 




162 






Idy 


#*80 


C1EE:20 


28 


C2 


163 






jsr 


putbuf 


C1F1:C9 


98 




164 






cmp 


*$98 


C1F3!D0 


0B 


C200 


165 






bne 


ainof 1 sh 


C1F5:AD 


62 


C0 


166 






Ida 


butnl 


C1F8: 10 


06 


C200 


167 






bpl 


ainof Ish 


C1FA:8E 


FF 


05 


168 






stx 


twkey 


C1FD:8E 


FF 


06 


169 






5tx 


trkey 


C200;AD 


10 


C0 


170 


al 


nof i 5h 


Ida 


kbdstrb 


C203: 






171 


* 


$A0 $B0 


tabl 


e needed by 


C203: 




C142 


172 


devTio2 


equ 


•-sltdmy 


C203:A0 


B0 




173 






Idy 


#$B0 


C20S:B9 


F9 


BF 


174 






Ida 


ss tat ,y 


C208;29 


BF 




175 


aleatlt 


and 


#$BF 


C20A:0A 






176 


ai 


pass 


asl 


A 


C20B:0A 






177 






asl 


A 


C2aC:29 


20 




178 






and 


*$20 


C20E:F0 


3E 


C24E 


179 






beq 


aciadone 


C210:B9 


FA 


BF 


180 






Ida 


scomd,y 


C213!49 


01 




181 






eor 


#1 


C21S:29 


03 




182 






and 


*3 


C217:D0 


35 


C24E 


183 






bne 


aciadone 


C219:8A 






184 






txa 




C21A:4D 


FF 


04 


185 






eor 


ac iabuf 


C21D;D0 


93 


C1B2 


186 






bne 


notac ia 


C21F:08 






187 






php 




C220:20 


22 


C3 


188 






jsr 


getdata 


C223:90 


28 


C24D 


189 






face 


aieat 


C225:A0 


00 




190 






Idy 


#0 


C227:D0 






191 






dfb 


$D0 


C228: 




C228 


192 


pu 


tbuf 


equ 


« 


C228:08 






193 






php 




C229:DA 






194 






phx 




C22A:48 






195 






pha 




C22B:B9 


7F 


05 


196 






Ida 


twser , y 


C22E:AA 






197 






tax 




C22F: 1A 






198 






ino 


A 


C230:89 


7F 




199 






bit 


#$7F 


C232:D0 


01 


C235 


200 






bne 


pbok 


0234:98 






201 






tya 




C235:D9 


7F 


06 


202 


pb 


ok 


cmp 


trser ,y 


C238:F0 


03 


C23D 


203 






beq 


pbfuH 


C23A:99 


7F 


05 


204 






sta 


twser ,y 


C23D:68 






205 


pbfuU 


pla 




C23E:2C 


14 


C0 


206 






bit 


rdramwr t 


C241 :8D 


05 


C0 


207 






sta 


wrcardram 


C244:9D 


00 


08 


208 






sta 


thbuf ,x 


C247:30 


03 


C24C 


209 






bmi 


aiaux 


C249:8D 


04 


C0 


210 






sta 


wrmainram 


C24C:FA 






211 


aiaux 


plx 
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; Is DSR enabled? 
; Yes , user wants i t 
; No , eat it 

;Yes but I don't want it for port 1 
; Is DSR 1? 
i I f not , skip it 
)t 

;Get the key 

iPut it in the buffer 
; Is it a *x? 

;And the closed apple? 

iFlush the type ahead buffer 

;Clear the keyboard 
serial fi rmware 

; Restore y 

;Read status to clear int 
;Clear the DSR bit 
;Shift DSR into C 

;Is the receiver full? 

; I f not , we' re done 

;Are receive interrupts enabled? 

jCheck for D<1>,D<0> = 01 

; I f no t , were done 
ils this acia buffered? 

;The user better handle it! 

; Save DSR status 
;Get char t, check xon, etc 
iDon't put in buffer if eaten 

;BNE opcode to skip PHP 



;Get buffer pointer 
; Save it for later 
;Bump it to next free byte 
; Overflow? 

; Wrap pointer 
;Buffer full? 

; Save the new pointer 
;Get the data 

; I t goes to aux ram 

;Branch if we want aux 
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22 MINT 



C24D:28 
C24E:60 



Mouse i, serial interrupt stuff 31-MAY-8S PAGE 94 

212 aieat pip ;Get DSR status back 

213 acladone r t s 



ApperKJix A: Finmvare LisiJng 



22 MINT 








Mouse & serla 


1 int 


errupt stuff 


C24F: 








215 




C24F: 








216 


» 






C24F: 








217 


• SERDUT3 


- Du 


tputs a charac 


C24F: 








218 


* Inputs: 


A - 


char , X = Cn 


C24F: 








219 


# 






C24F: 








220 


**************************** 


C24F: 






C24F 


221 


serout3 


equ 


* 


C24F:20 


55 


C2 




222 




Jsr 


serou t 4 


C2S2:4C 


84 


C7 




223 




Ji"P 


swr ts2 


C2SB: 






C255 


224 


serout4 


equ 


* 


C255:48 








225 




pha 




C256:2C 


AB 


C2 




226 




bit 


sorts 


C2S9:Fa 


03 




C2SE 


227 




beq 


sordy 


C25B:FE 


38 


07 




228 




inc 


col , X 


C2SE:2a 


B2 


C2 




229 


sordy 


isl- 


getstat2 


C261 :29 


30 






230 




and 


*$30 


C2e3:C9 


10 






231 




cmp 


#$10 


C265:D0 


F7 




C25E 


232 




bne 


sordy 


C2e7:BD 


B8 


06 




233 




Ida 


f lags.x 


C26A:89 


20 






234 




bit 


#$20 


C26C:Fa 


IF 




C28D 


235 




beq 


sook 


C26E:EC 


FF 


04 




236 




cpx 


aclabuf 


C271 :F0 


13 




C286 


237 




beq 


sotst 


C273:20 


E9 


C2 




238 




jsr 


xrdnobuf 


C276:90 


0E 




C286 


239 




bcc 


sotst 


C278:BC 


34 


C2 




240 




Idy 


charptr , x 


C27B:99 


FE 


05 




241 




sta 


charbuf , y 


C27E:BD 


B8 


06 




242 




Ida 


f lags , X 


C281:09 


04 






243 




era 


'$04 


C283:9D 


B8 


06 




244 




sta 


flags , X 


C286:BD 


B8 


06 




245 


sotst 


Ida 


flags , X 


C289:29 


02 






246 




and 


#$02 


C28B:D0 


D1 




C25E 


247 




bne 


sordy 


C28D:BC 


42 


CI 




248 


500k 


Idy 


devno2 , x 


C290:68 








249 




pla 




C291 :48 








250 




pha 




C292:99 


F8 


BF 




251 




sta 


sda ta , y 


C295:3C 


B8 


06 




252 




bit 


f lags , X 


C298:49 


0D 






253 




eor 


#$0D 


C29A:0A 








254 




asl 


A 


C29B:D0 


0D 




C2AA 


255 




bne 


sodone 


C29D:50 


06 




C2A5 


256 




bvc 


olrcol 


C29F:A9 


14 






257 




Ida 


#$14 


C2A1:6A 








258 




ror 


A 


C2A2:20 


55 


C2 




259 




Jsr 


serout 4 


C2A5:64 


24 






260 


c I rcol 


stz 


ch 


C2A7:9E 


38 


07 




261 




stz 


col , X 


C2AA:G8 








262 


sodone 


pla 




C2AB:60 








263 


sorts 


rts 
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»»#»«»#»#«#* 



ter to a acie 



***««*#**«*« 



;Entry point with rts 

; Save the char 
; Control char? 
;Don't inc column if so 

;Get acia status 
; Y set by gets tat 



; Is XON/XOFF enabled? 

; Branch if not 

;l5 port interrupt driven? 

Get a char from the acia 

Branch if no char 

Get pointer to charbuf 

Save the character 

Set bit for char in buffer 



; Chec k if in xoff 
; Loop if not ready 



;Get char to XMIT 

Out it goes 

V=1 if LF after CR 

check for CR . 

preserve bit 7 

branch if not CR . 

branch if no LF after CR 

Get LF*2 

no shift in high bit 

Dutput the LF but don't echo it 

position & column 

;Get the char back 



148 
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22 M 
C2AC 
C2AC 
C2AC 
C2AC 
C2AC 
C2AC 
C2AC 
C2AC 
C2AC 
C2AC 
C2AC 
C2AC 
C2AF 
C2B2 
C2B2 
C2B3 
C2B4 
C2B7 
C2BA 
C2BC 
C2BF 
C2C1 
C2C2 



INT 



C2AC 



20 B2 C2 
4C 84 C7 

08 

78 

BC 42 C1 

B9 F9 BF 

10 05 



C2B2 



C2C1 



20 D6 CI 

80 F3 C2B4 

28 

80 



GETSTAT - Gets the status from a acla 

GETSTAT2 - Call from this side 

If interrupt, aoiatst Is called 

note: external interrupts are lost 

i npu t s : X = Cn 

outputs: A - status, X = Cn, Y ■= devno 



Mouse & serial Interrupt stuff 

2QS *************************** 

266 • 

267 

268 

269 

270 

271 

272 

273 

274 

275 getstat 

276 

277 

278 getstat2 

279 

280 

281 gsttst 

282 

283 

284 

285 

286 gstnoint 

287 
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equ 

Jmp 
equ 
php 
sei 
Idy 
Ida 
bpl 

Jsr 
bra 
pip 
rts 



gets tat2 
swr ts2 



devno2 , x 
ss ta t , y 
gstnoint 
ai t5t2 
gsttst 



;Return to other side 

;Save interrupt status 

;Get index into hardware 
;Get the status 
;D7 = 1 if interrupt 
;Go service the Interrupt 
; Interrupt may have changed status 
;Re5tore interrupt status 



Ap))endix A; Fimiware Ijisti: 



22 MINT 



Mouse & serial interrupt stuff 
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C2C3: 
C2C3: 
C2C3: 
C2C3: 
C2C3: 
C2C3: 
C2C3: 
C2C3: 
C2C6: 
C2C9: 
C2C9; 
C2CC: 
C2CE: 
C2D0: 
C2D3: 
C2D5: 
C2D5: 
C2D8: 
C2Dfi: 
C2DC: 
C2DE: 
C2E1 : 
C2E4: 
C2E7: 
C2E8: 
C2E9: 
C2E9: 
C2EC: 
C2EE: 
C2EF: 
C2n : 
C2F4: 



C2C3 
20 C9 C2 
4C 84 C7 

C2C9 
EC FF 04 
D0 07 C2D5 
A0 00 
20 FD C2 
B0 1F C2F4 



06 



BD B8 
89 04 
F0 0D 
29 FB 
9D B8 
BC 34 C2 
B9 FE 0B 
38 
60 

20 B2 C2 
29 08 
18 

F0 03 
20 22 C3 
60 



C2E9 



C2F4 



289 
290 
291 
292 
293 
294 
29B 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 



* This is the serial input routine. Carry 

* flag set indicates that returned data is 

* valid. 

* 

**************************************** 

xrdser 



xrdser2 



xnosbuf 



xrdnobuf 



xrddone 



equ 

jmp 
equ 
cpx 
bne 
Idy 

]='■ 
bcs 

Ida 
bit 
beq 
and 
s ta 
Idy 
Ida 
sec 
rts 

isl- 
and 
c Ic 
beq 

jsr 
rts 



xrdser 2 
swr t s 



aciabuf 
xnosbuf 



getbuf2 
xrddone 



f lags , X 

*$04 

xrdnobuf 

*$FB 

f lags , X 

charp t r , x 

charbuf , y 



ge t 5 ta t2 
#$8 

xrddone 
ge tdata 



is serial input buffered? 

Cin english "NO SERIAL BUFFER") 

Y=0 for serial buffer 

Any data in buffer? 



;l5 there a char in the onr byte buffer? 



jBranch if not 
;Clear the bit 



;Get ACIA status 

; indicate no data 

;Branch if no data! 

;Get data and check xon, 



etc 



C2F5: 
C2F5:00 80 



C234 



322 charptr 
323 



equ 
dfb 



»-$C1 
$0,$80 



;Pointer to character buffers 



C2F7: 








325 


** 


C2F7: 








326 




C2F7: 








327 




C2F7: 








328 




C2F7: 








329 




C2F7: 








330 




C2F7: 








331 


* * 


C2F7: 






C2F7 


332 


9^ 


C2F7:20 


FD 


02 




333 




C2FA:4C 


84 


07 




334 




C2FD: 






C2FD 


335 


ge 


C2FD:B9 


7F 


06 




336 




C300:D9 


7F 


05 




337 




0303: 18 








338 




C304:F0 


IB 




0321 


339 




0306:48 








340 




C307: 1A 








341 




0308:89 


7F 






342 




C30A:D0 


01 




O30D 


343 




0300:98 








344 





(#««««««««««««**«**««««**«*««*««*»« 



GETBUF - Gets a byte from the input buffer 

Inputs: Y=0 for Serial buffer 80 for Keyboard buffer 

C « if no data C = 1 if data valid A = Data 



tbuf 



«««««*« 



tbuf2 



equ 
jsr 


* 
getbuf2 


Ji"P 


swrt s 


equ 
Ida 


* 
trser.Y 


cmp 


twser.Y 


clc 




beq 


gbdone 


pha 
Inc 


A 


bit 


#$7F 


bne 


gbnoovr 


tya 





;Te5t 
. If « 



for data in buffer 
then no data 



Branch if empty 
Save current value 
Update the pointer 
Dverf low 
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22 MINT 

C30D:99 7F' 06 

C310:7fl 

C311 :AD 13 C0 

C314:0A 

C315:8D 

C318:B9 

C31B:B0 

C31D:8D 

C320:38 

C321 :60 



Mouse i serial Interrupt stuff 
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03 C0 
00 08 

04 C321 
02 C0 



345 gbnoovr 

346 

347 

348 

349 

350 

351 

352 

353 

354 gbdone 



s ta 
ply 
Ida 
as 1 
s ta 
Ida 
bcs 
sta 
sec 
rts 



t rser , y 

rdramrd 

A 

rdcardram 

thbuf ,Y 

gbdone 

r dma 1 nram 



;Store the updated pointer 

;Oet the old value of the pointer 

;Are we In main ram 

;C=1 for Aux ram 

;Force Aux ram 

;Get byte from buffer 

jBranch if we were in aux bank 

; Set back to main 

;Mark data there 



C322: 




C322: 




C322: 




C322: 




C322: 




C322: 




C322: 




C322: 




C322: 




C322:B9 


F8 BF 


C325:48 




C326:09 


80 


C328:A8 




C329!BD 


B8 06 


C32C:89 


08 


C32E:D0 


04 


C330:C0 


8A 


C332:F0 


12 


C334:89 


20 


C336:F0 


10 


C338:C0 


91 


C33A:D0 


04 ( 


C33C:29 


FD 


C33E:80 


06 C 


C340:C0 


93 


C342:D0 


04 C 


C344:09 


02 


C346: 18 




C347:B0 




C348:38 




C349!9D 


B8 06 


C34C:68 




C34D:60 




C34E: 





C322 



C334 



C346 



C348 



C340 



C346 



C348 



356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
52 



« 

* GETDATA - Gets data from serial port 

* and checks for LF , XON, XDFF 

* inputs: Y = index to acia 

* outputs: A = data, Y dest, C - 1 i f data ok 

♦••••••»».«»»«»..»,»,,,,,»,,„,,,,,,,,,,, 

getdata equ * 



i Save the data 

;Set D7 for compares 

;Get options byte 
;Eat linefeeds? 

; Is it a LF? 
;Eat it if it is 
;Xon/XQFF enabled? 

! Is it an XON? 

;Clear xoff bit 
jAnd eat it 



if eaten 



gdnolf 



gdnxon 

gdeat 
gdok 



Ida 


sdata ,y 


pha 




ora 


*$80 


tay 




Ida 


flags , X 


bit 


'$08 


bne 


gdnolf 


cpy 


'Ifeed 


beq 


gdeat 


bit 


*$20 


beq 


gdok 


opy 


*xon 


bne 


gdnxon 


and 


*$FD 


bra 


gdeat 


cpy 


#xoff 


bne 


gdok 


ora 


#$02 


olc 




dfb 


$B0 


sec 




sta 


flags , X 


pla 




rts 




incl 


ude auxstuff 



;Set xoff bit 
;BCS opcode 

;Auxillary move stuff 
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23 AUXSTUFF 



Aux ram support stuff 



31-MAY-8S 



PAGE 39 



C34E: 








4 




* * * t 


#*###»#«»#« 


t # * » » 




C34E: 








5 


* NAME 


MOVEAUX 






C34E: 








6 


• FUNCTION 


PERFORM CROSSBANK MEMORY MOVE 


C34E: 








7 


* INPUT 


A1 = 


SOURCE ADDRESS 




C34E: 








8 


« 


A2' 


SOURCE END 






C34E: 








9 


* 


A4 = 


DESTINATION 


START 


C34E: 








10 


* 


CARRY SET=MAIN- 


->CARD 


C34E: 








11 


* 




CLR = CARD- 


->MAIN 


C34E: 








12 


• OUTPUT 


NONE 






C34E: 








13 


* VOLATILE 


NOTHING 






C34E: 








14 


• CALLS 


NOTHING 






C34E: 








IS 


**************************************** 


C34E: 






C34E 


16 


MOVEAUX EQU 


* 






C34E:48 








17 


PHA 






SAVE AC 


C34F:AD 


13 


C0 




18 


LDA 


RDRAMRD 




SAVE STATE OF 


C352:48 








19 


PHA 






MEMORY FLAGS 


C353:AD 


14 


C0 




20 


LDA 


RDRAMWRT 






C356:48 








21 


PHA 








C357: 








22 


# 










C3S7: 








23 


* SET FLAGS FOR CROSSBANK 


10VE 




C357: 








24 


* 










C357:90 


08 




C361 


25 


BCC 


M0VEC2M 




->CARD->MAIN 


C3B3:8D 


02 


C0 




28 




3TA 


RDMAINRAM 




SET FOR MAIN 


C35C:8D 


05 


C0 




27 




3TA 


UIRCARDRAM 




TO CARD 


C35F:B0 


06 




C367 


28 


BCS 


MOVESTRT 




=>(ALWAYS TAKEN) 


C3ei: 








29 


* 










C361 : 






C3G1 


30 


M0VEC2M 


:qu 


« 






C3ei:8D 


04 


C0 




31 




3TA 


WRMAINRAM 




SET FOR CARD 


C364;8D 


03 


C0 




32 




3TA 


RDCARDRAM 




TO MAIN 


C367: 








33 


* 










C367: 






C367 


34 


MOVESTRT 


EQU 


* 






C3G7!B2 


3C 






35 


MOVELOOP 


-DA 


(AIL) 




get a byte 


C369:92 


42 






36 




5TA 


(A4L) 




move i t 


C36B:E6 


42 






37 




INC 


A4L 






C36D:D0 


02 




C371 


38 




BNE 


NEXTA1 






C36F:E6 


43 






39 




INC 


A4H 






C371;AB 


3C 






40 


NEXTA1 


-DA 


AIL 






C373:C5 


3E 






41 




CMP 


A2L 






C37S:A5 


3D 






42 




LDA 


A1H 






C377:E5 


3F 






43 




BBC 


A2H 






C379:E6 


3C 






44 




INC 


AIL 






C37B:D0 


02 




C37F 


45 




BNE 


C01 






C37D;E6 


3D 






46 




INC 


A1H 






C37F:90 


E6 




C3G7 


47 


CD1 


BCC 


MOVELOOP 




«>more to move 


C381: 








48 


• 










C381:8D 


04 


C0 




49 




STA 


WRMAINRAM 




CLEAR FLAG2 


C384:68 








50 




PLA 






GET ORIGINAL STATE 


C385! 10 


03 




C38A 


51 




BPL 


C03 




■=>IT WAS OFF 


C387:8D 


05 


C0 




52 




STA 


WRCARDRAM 






C38A; 






C38A 


53 


C03 


EQU 


* 






C38A:8D 


02 


C0 




54 




STA 


RDMAINRAM 




.CLEAR FLAG1 


C38D:68 








55 




PLA 






iGET ORIGINAL STATE 


C38E:10 


03 




C393 


56 




BPL 


MOVERET 




;=>IT WAS OFF 


C390:8D 


03 


C0 




57 




STA 


RDCARDRAM 






C393: 






C393 


58 


MOVERET 


EQU 


* 






C393:68 








59 




PLA 






iRestore AC 


C394:4C 


84 


C7 




60 




JMP 


SWRTS2 







152 
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:397 
C397 
C397 
C397 
C397 
C397 
C397 
C397 
C397 
C397 
C397 
C397 
C397 
C397 
C397 
C397 
C398 
C398 
C398 
C398 
C398 
C398 
C39B 
C39C 
C39F 
C3A0 
C3A0 
C3A0 
C3AB 
C3A2 
C3A5 
C3A8 
C3AA 
3AA 
.3AD 
C3B0 
C3B0 
C3B0 
C3B1 
C3B4 
C3B5 
C3B8 
C3B9 
C3BB 
C3BE 
C3C0 
C3C3 
C3C6 
C3C6 



Aux ram support stuff 



B0 



8D 02 
8D 04 



68 

8D EE 
68 
8D ED 



C397 



48 



AD ED 
48 

AD EE 
48 



03 



03 



90 08 
8D 03 C0 
8D 05 C0 
06 



C3AA 



C3B0 
C3AA 



C0 
C0 



C3B0 



03 



03 



05 



C3C0 



8D 08 C0 
50 03 
8D 09 



C3C3 



C0 
EB C7 



62 •♦••*••»•••#•♦»•.««..,,.«, 



63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
53 



31-MAY-85 



»######*### 



PAGE 100 



NAME : 
FUNCTION: 
INPUT : 



OUTPUT 
VOLATILE 
CALLS 
NOTE 



XFER 

TRANSFER CONTROL CROSSBANK 
$03ED-TRANSFER ADDR 
CARRY SET-XFER TO CARD 

CLR-XFER TO MAIN 
VFLAG CLR-USE STD ZP/STK 

SET'USE ALT ZP/STK 
NONE 

»03ED/03EE IN DEST BANK 
NOTHING 
ENTERED VIA JMP , NOT JSR 



»»•#♦««.«. .,.,nn,,,,,,,(,,,,„,,,,,„,j, 



XFER 



EQU 
PHA 



iSAVE AC ON CURRENT STACK 



• COPY DESTINATION ADDRESS TO THE 

• OTHER BANK SO THAT WE HAVE IT 

• IN CASE WE DO A SWAP: 



LDA 
PHA 
LDA 
PHA 



$03ED 
$03EE 



* SWITCH TO APPROPRIATE BANK: 



BCC 
STA 
STA 
BCS 
XFERC2M EQU 
STA 
STA 



XFERZP 



XFERAZP 
JMPDEST 



EQU 
PLA 
STA 
PLA 
STA 
PLA 
BVS 
STA 
BVC 
STA 
JMP 



XFERC2M 
RDCARDRAM 
WRCARDRAM 
XFERZP 

* 

RDMAINRAM 
WRMAINRAM 



«03EE 

$03ED 

XFERAZP 

SETSTDZP 

JMPDEST 

SETALTZP 

SWXFG02 



GET XFERADDR LO 
SAVE ON CURRENT STACK 
GET XFERADDR HI 
SAVE IT TOO 



->CARD->MAIN 
SET FOR RUNNING 

IN CARD RAM 
=> always taken 

;SET FOR RUNNING 
; IN MAIN RAM 

SWITCH TO ALT ZP/STK 
STUFF XFERADDR 
HI AND 

; LO 

iRESTORE AC 

;=>5witch in alternate zp 

lelse force standard zp 

;=>always perform transfer 

;5wltch in alternate zp 

;Back we go 



include banger2 ;Diagnostic routines 
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24 BANGER2 Apple //c diagnostics 31-MAY-85 PAGE 101 

C3C6' 3 **************************************** 

C3C6: 4 * 

C3C6: B • Here is the rest of the diagnostic stuff 

C3C6: 6 * the first part has been moved into the $D000 space 

C3C6: 7 * to make desperately needed room 

CBCe: 8 * 

QOPg. a #«*»*«*#**»##*»#*»*****#***«***#*•**#**» 

C3C6: C3CS 10 TSTMEM equ * 

C3C6:86 01 11 stx $01 

C3C8:8e 02 12 stx $02 

C3CA:86 03 13 stx $03 

C3CC:A2 04 14 Idx #4 ;do RAM $100-$FFFF five times 

C3CE:86 04 1B stx $04 

C3D0:8S 0B 16 MEMI STA $05 ;keep ace in a safe place 

C3D2:A2 04 17 Idx #4 

C3D4:S4 01 18 stz $01 

C3D6:E6 01 19 inc 1 ;point to page 1 first 

C3D8;A8 20 mem2 tay ;save ACC in Y for now 

C3D9!8D 83 C0 21 sta lcbank2 ;anticipate not $C000 range... 

C3DC;8D 83 C0 22 sta lobank2 

C3DF:A5 01 23 Ida $01 ;get page address 

C3E1;29 F0 24 and #$F0 jtest for $C0-$CF range 

C3E3:C9 C0 2B cmp '$C0 

C3EB;D0 0C C3F3 26 bne mem3 ;branch if not... 

C3E7:AD 8B C0 27 Ida Icbanki 

C3EA:AD 8B C0 28 Ida Icbanki ;select primary $D000 space 

C3ED:A5 01 29 Ida $01 

C3EF;69 0F 30 adc *$F jPlus carry = + $10 

C3F1:D0 02 C3F5 31 bne mem4 !branch always taken 

C3F3:AB 01 32 mem3 Ida $01 

C3F5:85 03 33 mem4 sta $03 

C3F7:98 34 tya irestore pattern to ACC 

C3F8:A0 00 35 Idy *$00 ;fill this page with the pattern 

C3FA: 18 36 memB clc 

C3FB:7D 2A C8 37 adc ntbl,x 

C3FE:91 02 38 sta t$02),y 

C400:CA 39 dex ;keep x in the range 0-4 

C401:10 02 C40S 40 bpl mem6 

C403:A2 04 41 Idx '•'4 

C405:C8 42 mem6 iny iall 256 filled yet? 

C406:D0 F2 C3FA 43 bne memB ;branch if not 

C408:E6 01 44 inc 1 ; bump page * 

C40A:D0 CC C3D8 4B bne mem2 ;loop through $0100 to $FF00 

C40C:E6 01 47 inc $01 ;polnt to page 1 again 

C40E:A2 04 48 LDX *4 

C410:AB 0B 49 LDA $0B 

C412:A8 B0 mem7 tay ; save ACC in Y for now 

C413:AD 83 C0 B1 Ida lcbank2 ;anticipate not $C000 range... 

C416:AD 83 C0 52 Ida lcbank2 

C419:A5 01 B3 Ida $01 ;get page address 

C41B:29 F0 B4 and *$F0 ;test for $C0-$CF range 

C41D:C9 C0 SB cmp *$C0 

C41F:D0 09 C42A 56 bne memS ;branch if not... 

C421:AD 8B C0 57 Ida Icbanki ;select primary $D000 space 

C424:A5 01 58 Ida $01 

C426:69 0F 59 adc *$F ;Plu5 carry = + $10 

C428:D0 02 C42C 60 bne mem9 jbranch always taken 
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24 BANGERS 



Apple //c diagnostics 



31-MAY-85 



PAGE 102 



C42A:A5 


01 






61 


memS 


Ida 


$01 


C42C:85 


03 






82 


mem9 


5ta 


$03 


C42E:98 








63 




tya 




C42F:A0 


00 






64 




Idy 


*$00 


C431 : 18 








65 


memA 


clc 




C432:7D 


2A 


C8 




66 




adc 


ntbl ,x 


C435:51 


02 






67 




eor 


C$02), y 


C437:D0 


39 




C472 


68 




bne 


MEMERROR 


C439:B1 


02 






69 




Ida 


($02), y 


C43B:CA 








70 




dex 




C43C: 10 


02 




C440 


71 




bpl 


memB 


C43E:A2 


04 






72 




Idx 


#4 


C440:C8 








73 


memB 


iny 




C441 :D0 


EE 




C431 


74 




bne 


memA 


C443:Ee 


01 






75 




inc 


1 


C445:D0 


CB 




C412 


76 




bne 


mem7 


C447:6A 








77 




ror 


a 


C448:2C 


19 


C0 




78 




bit 


rdvblbar 


C44B: 10 


02 




C44F 


79 




bpl 


memC 


C44D:49 


AS 






80 




eor 


*$A5 


C44F:C6 


04 






81 


memC 


dec 


$04 


C451 :30 


03 




C456 


82 




bmi 


memD 


C453:4C 


D0 


C3 




83 




Ji^P 


mem 1 


C45e:AA 








85 


memD 


TAX 




C457:2C 


13 


C0 




86 




BIT 


rdramrd 


C45A:30 


10 




C4ec 


87 




BMI 


MEMF 


C4SC:8A 








88 




txa 




C4SD:8D 


05 


C0 




89 




STA 


wrcar dram 


C460:8D 


03 


C0 




90 




STA 


rdcardram 


C463:8D 


09 


C0 




91 




STA 


setal t zp 


C466:8D 


81 


C0 




92 




STA 


ROMIN 


C4e9:4C 


B2 


D4 




93 




]"!? 


TSTZPG 


C46C:8D 


08 


C0 




95 


MEMF 


STA 


sets tdzp 


C46F;4C 


EF 


C4 




96 




JMP 


SWCHTST 



irestore pattern to ACC 

;fill this page with the pattern 



;if any bits are different, give up!! 
;restore correct pattern 
;keep x in the range 0-4 



all 256 filled yet? 
branch if not 
bump page # 

loop through $0100 to $FF00 
change ACC for next pass 
use RDVBL for a little randomness. 



; have 5 passes been done yef: 

; sk ip if yes 

; start next pass 



; save ace 

;main or aux ram ? 

; sk ip if aux ram 

;enable aux mem write 
;enable aux mem read 
;5wap in alt zero page 
;Foroe rem enable 
; and test it! 

; swap in main zero page 



24 BANGER2 




App 


le 


//c dla 


gnos t 


iC5 


C472 


:38 






98 


MEMERROR 


sec 




C473 


;AA 






99 


BADBITS 


tax 




C474 


:AD 


13 


C0 


100 






Ida 


rdramrd 


C477 


:B8 






101 






civ 




C478 


: 10 


03 


C47D 


102 






bpl 


bbltsi 


C47A 


:2C 


2A 


C8 


103 






bit 


setv 


C47D 


:A9 


A0 




104 


bb 


itsi 


Ida 


*$A0 


C47F 


■A0 


06 




105 






Idy 


*6 


C481 


99 


FE 


BF 


106 


cl 


rats 


sta 


ioadr-2 , y 


C484 


99 


06 


C0 


107 






sta 


ioadr +6,y 


C487 


88 






108 






day 




C488 


88 






109 






dey 




C489 


D0 


F6 


C481 


110 






bne 


clrs t s 


C48B 


8D 


51 


C0 


111 






sta 


txtset 


C48E 


8D 


54 


C0 


112 






sta 


tx tpage 1 


C491 


99 


00 


04 


113 


cl 


rs 


sta 


$400, y 


C494 


99 


00 


05 


114 






sta 


$500, y 


C497 


99 


00 


06 


115 






sta 


$600, y 


C49A 


99 


00 


07 


116 






sta 


$700, y 


C49D 


C8 






117 






i ny 




C49E 


D0 


F1 


C491 


118 






bne 


clrs 


C4A0 


8A 






119 






txa 




C4A1 


F0 


27 


C4CA 


120 






beq 


BADSWTCH 


C4A3 


A0 


03 




121 






Idy 


#3 


C4A5 


B0 


02 


C4A9 


122 






bcs 


badmain 


C4A7 


A0 


05 




123 






Idy 


#5 


C4A9 


A9 


AA 




124 


ba 


dmai n 


Ida 


#$AA 


C4AB 


50 


03 


C4B0 


125 






bvc 


badpr im 


C4AD 


8D 


B0 


05 


126 






sta 


screen-8 


C4B0 


B9 


66 


C8 


127 


ba 


dprim 


Ida 


rmess , y 


C4B3 


99 


B1 


05 


128 






sta 


screen-7 ,y 


C4B6 


88 






129 






dey 




C4B7 


10 


F7 


C4B0 


130 






bpl 


badpr im 


C4B9 


A0 


10 




131 






Idy 


*$10 


C4BB 


8A 






132 


bb 


lts2 


txa 




C4BC 


4A 






133 






Isr 


a 


C4BD 


AA 






134 






tax 




C4BE 


A9 


58 




135 






Ida 


*$58 


C4C0 


2A 






136 






rol 


a 


C4C1 


99 


B6 


05 


137 






sta 


5creen-2 ,y 


C4C4 


88 






138 






dey 




C4C5 


88 






139 






dey 




C4C6 


D0 


F3 


C4BB 


140 






bne 


bblts2 


C4C8 


F0 


FE 


C4C8 


141 


hangx 


beq 


harigx 



31-MAY-85 



PAGE 103 



jindicate main ram failure 

;save bit pattern in x for now 

;main or aux mem? 

;with V-FLG 

;branoh if primary bank 

;try to clear video screen 



;test for switch test failure 
;branch if it was a switch 

jbranch if ZP ok 

;mark aux report with an asterisks 



imessage is either "RAM" or "RAM ZP" 
; print bits 



;bit5 are printed as ascii or 1 



;hang forever and ever 



>ppeiiOix 



jsti: 



24 BANGERa 




App 


le 


//c diagnost 


ics 


C4CA 


!A2 


02 




143 


BADSWTCH 


idx 


#2 


C4CC 


:7A 






144 






ply 




C4CD 


:08 






145 






php 




C4CE 


:BD 


6C 


C8 


146 


b! 


iwtchi 


Ida 


smess , X 


C4D1 


!28 






147 






pip 




C4D2 


:08 






148 






php 




C4D3 


:90 


03 


C4D8 


149 






bcc 


b5wtch2 


C4DS 


:BD 


6F 


C8 


150 






Ida 


5me55+3 , X 


C4D8 


;C0 


06 




151 


bswtcha 


opy 


*6 


C4DA 


:90 


0B 


C4E7 


152 






bcc 


bswtohS 


C4DC 


:C0 


08 




153 






cpy 


*8 


C4DE 


:90 


04 


C4E4 


154 






bcc 


bswtch2a 


C4E0 


:C0 


1 1 




155 






<=py 


#$11 


C4E2 


:90 


03 


C4E7 


156 






bcc 


bswtch3 


C4E4 


!BD 


72 


C8 


157 


b5wtch2a 


Ida 


5me55+6, X 


C4E7 


:9D 


B8 


0E 


158 


bswtchS 


sta 


screen , x 


C4EA 


;CA 






159 






dex 




C4EB 


: 10 


E1 


C4CE 


160 






bpl 


bswt ch 1 


C4ED 


:30 


FE 


C4ED 


161 


hangy 


bml 


hangy 


C4EF 


:A0 


01 




163 


SWCHTST 


Idy 


*MMUIDX 


C4F1 


:A9 


7F 




164 


an 


(tsti 


Ida 


**7F 


C4F3 


:6A 






165 


5M 


itst2 


ror 


a 


C4F4 


:BE 


2F 


C8 


166 






Idx 


SWTBL0,y 


C4F7 


:F0 


0F 


CB08 


167 






beq 


SWt5t4 


C4F9 


;90 


03 


C4FE 


168 






bcc 


swt5t3 


C4FB 


:BE 


41 


C8 


169 






Idx 


SNTBLI.y 


C4FEi 


r9D 


FF 


BF 


170 


5M. 


.tstS 


sta 


ioadr- 1 , X 


C501I 


:C8 






171 






iny 




C502; 


;D0 


EF 


C4F3 


172 






bne 


5wt5t2 


C504i 








173 


» 








C504I 


•AE 


30 


C0 


174 


cl 


lok 


Idx 


spkr 


C5a7i 


:2A 






175 






rol 


a 


CSB81 


;88 






176 


sw 


't5t4 


day 




C509i 


;BE 


53 


C8 


177 






Idx 


RSWTBL.y 


C50C! 


;F0 


13 


C521 


178 






beq 


5Wt5t6 


C50E; 


i30 


F4 


CS04 


179 






bmi 


click 


ver if lee 


1. 














CS10: 


2A 






180 






rol 


a 


C511; 


90 


07 


C51A 


181 






bcc 


5Wt 5 tS 


C513: 


1E 


00 


00 


182 






asl 


i oadr , x 


C516: 


90 


IF 


C537 


183 






bcc 


swerr 


CS18: 


B0 


EE 


C508 


184 






bc5 


SWt5t4 


C51A: 


IE 


00 


C0 


185 


5W 


tstS 


asl 


ioadr , x 


C51D: 


B0 


18 


C537 


186 






bC5 


swerr 


C51F: 


90 


E7 


C508 


187 






bcc 


5wtst4 


CB21 : 








188 


# 








C521: 


2A 






189 


5W 


tste 


rol 


a 


CS22: 


C8 






190 






iny 




C523: 


38 






191 






sec 




C524: 


E9 


01 




192 






sbc 


#1 


CB2G: 


B0 


CB 


C4F3 


193 






bc5 


SWt5t2 


C528: 


88 






194 






dey 




CS29: 


F0 


08 


C533 


195 






beq 


SWt5t7 


C52B: 


C0 


08 




196 






=py 


*I0UIDX-1 


C52D: 


D0 


10 


C53F 


197 






bne 


BIGLOOP 


C52F: 


A0 


11 




198 






Idy 


#GLUIDX 


C531: 


D0 


BE 


C4F1 


199 






bne 


swtsti 
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;antioipate MMU error 



;branch If not lOU error 
iantlclpate IDU error 
;compare with where we left off 
;5kip if MMU 

iskip if GLU (loudis or dhires failure) 

;5kip if IDU 

;GLU error (ioudis failure) 



;print "MMU", "lOU" or "GLU" 
;branch forever 



;set switches of the lOU/MMU to match 
Accumu later 

ibranch if done setting switches 
;branch if setting switch to 0-state 
;else get Index to set switch to 1 
; set swi tch 

jbranoh always taken... 



;now verify the settings just made 
;branch if done this pass 
;branch if this switch no to be 



; branch always 



;branch always 

;re5tore original value 
i and IDU/MMU index 

; try next pat tern 

;was MMU just tested? 

iyes , go test IDU 

iwas lOU just tested? 

; no , go loop again 

Syes, go test IOUDIS switch 

;branch always 



24 BANGER2 
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C533:A0 09 

C535:D0 BA 
C537: 
C537:5A 

C538:A2 00 

C53A:C0 0A 

C53C:4C 7D C4 



C4F1 



200 


swtst? 


Idy 


^lauiDX 


201 




fane 


swtsti 


202 


« 






203 


Bwerr 


phy 




204 




Idx 


*a 


205 




°py 


^'lOUIDX+l 


206 




i"'? 


bbitsi 



;branch always 

;5ave y to distinguish from MMU or GLU 

f ai lure 
;indicate switch error 
;5et carry if lOU was cause 



;\pperi(ii 



an; Usiing 



24 BANGER2 




App 


le 


//c dlagnost 


i C5 


C53F:46 


80 




208 


BIGLDOP 


Isr 


$80 


C541 :D0 


AC 


C4EF 


209 






bne 


SWCHTST 


CS43:A9 


A0 




210 


bl 


P2 


Ida 


#$A0 


C545:A0 


00 




211 






Idy 


#0 


C547:99 


00 


04 


212 


bl 


p3 


sta 


$400, y 


C54A:99 


00 


05 


213 






sta 


$500, y 


CS4D:99 


00 


06 


214 






sta 


$600, y 


CS50:99 


00 


07 


215 






sta 


$700, y 


CBS3:C8 






216 






i ny 




CBB4:D0 


n 


C547 


217 






bne 


blp3 


C556:AD 


ei 


C0 


218 


bl 


p4 


LDA 


butT10 


CS59:2D 


62 


C0 


219 






AND 


butnl 


C55C:0A 






220 






asl 


a 


C55D:E6 


FF 




221 






INC 


$FF 


C55F:A5 


FF 




222 






LDA 


$FF 


CS61 :90 


03 


C566 


223 






bcc 


dqul t 


C563:4C 


A9 


D4 


224 






i'"P 


DIAGS 


C566: 






225 


« 








C566:AD 


51 


C0 


226 


dq 


uit 


Ida 


txtset 


CS69:AB 


08 




227 






Idy 


*8 


C56B:B9 


75 


C8 


228 


5uc2 


Ida 


success , y 


C56E:99 


B8 


05 


229 






sta 


SCREEN, y 


C571:88 






230 






day 




C572: 10 


F7 


C56B 


231 






bpl 


5uc2 


C574:30 


E0 


C556 


232 






bmi 


blp4 


CS7e: 




000A 


54 






ds 


$C580-»,0 


CB8B: 






55 






i nc 1 


Lide switche 
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;clear screen for success messaq 



test for both Open and Closed Apple 

pressed 
put result in carry 



;put success message on the screen 



; loop forever 

;Appletalk stuff 

;Bank switch stuff @ 2:C780 



Append) 



Hrniware Lis 
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0200 2 ds $C780-»,$00 

f * 

5 » SWITCHING ROUTINES 

6 • 

y #»»#»#•#*»»##•##•##########»»###•»#»»*#« 

8 swrtl2 sta rombank 

9 rti 

10 5wrts2 sta rombank 

11 rts 

12 swre5et2 sta rombank 

13 Jmp reset 

14 5wirq2 sta rombank ^Irq entry 

15 bit swr t sop 

16 jmp irqent 

17 sw5thk2 sta rombank 

18 jmp ponv 

19 5wzzqt2 sta rombank ;Mou5e basic routines 

20 jmp basicin 

21 sta rombank jSet terminal mode 

22 jmp swsttmS 

23 sta rombank ; Jump to command routine 

24 Jmp swcmd3 

25 sta rombank iAux move 

26 jmp moveaux 

27 sta rombank ; XFER 

28 jmp xfer 

29 sta rombank jMouse interrupt handler 

30 jmp mouseint 

31 sta rombank ;Diagnostics 

32 jmp diags 

33 sta rombank ;Appletalk 

34 jmp atalk 

35 sta rombank ;Serial output 

36 jmp serout3 

37 sta rombank ;Get status 

38 jmp getstat 

39 sta rombank ; Read from serial port 

40 jmp xrdser 

41 sta rombank iGet char from buffer 

42 jmp getbuf 

43 sta rombank 

44 jmp zznm 

45 swxfgo2 sta rombank 5 Go to users xfer dest 

46 jmp ($3ED) 

47 swsttmS phx ; Save X 

48 j sr ge t Ic 

49 phy 

50 jsr setterm 
C80E 51 bra fixlc ;Fix Language card and return 

C7FB: 0008 53 ds $C803-*,0 ;*C803 interrupt entry point 

C803:4C 8E C7 54 jmp swirq2 

C806:DA 56 swcmd3 phx 'iGo to the command routine 

0807:20 16 C8 57 jsr getlc ;Get language card state 

C80A:5A 58 phy ; Save it 

C80B:20 00 D0 59 jsr command 



C580 








C780 








C780 








C780 








C780 








C780 








C780 


8D 


28 


00 


0783 


40 






C784 


8D 


28 


00 


0787 


60 






0788 


8D 


28 


00 


C78B 


40 


62 


FA 


C78E 


8D 


28 


00 


C791 


20 


87 


07 


0794 


40 


04 


08 


C797 


8D 


28 


00 


C79A 


40 


80 


08 


079D 


8D 


28 


00 


O7A0 


40 


00 


D4 


07A3 


8D 


28 


00 


C7A6 


4C 


F1 


07 


C7A9 


8D 


28 


00 


C7AC 


40 


06 


08 


C7AF 


8D 


28 


00 


C7B2 


40 


4E 


03 


C7B5 


8D 


28 


00 


C7B8 


4C 


97 


C3 


07BB 


8D 


28 


00 


07BE 


40 


00 


01 


0701 


8D 


28 


00 


0704 


40 


A9 


D4 


0707 


8D 


28 


00 


C7CA 


4C 


80 


05 


070D 


8D 


28 


00 


C7D0 


4C 


4F 


02 


07D3 


8D 


28 


00 


C7D6 


40 


AC 


02 


C7D9 


8D 


28 


00 


C7D0 


40 


03 


02 


07DF 


8D 


28 


00 


C7E2 


40 


F7 


02 


07E5 


8D 


28 


00 


C7E8 


40 


E0 


D4 


07EB 


8D 


28 


00 


C7EE 


6C 


ED 


03 


C7F1 


DA 






C7F2 


20 


16 


08 


C7F5 


5A 






C7F6 


20 


A0 


D1 


C7F9 


80 


13 





160 AppeiKiix A: 
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C8BE 


FA 






C80F 


FE 


00 


C0 


C812 


FA 






C813 


4C 


84 


C7 


C816 








C816 








C816 








C816 








C816 


A0 


81 




C818 


2C 


12 


C0 


C81B 


10 


0C 




C81D 


A0 


SB 




C81F 


2C 


1 1 


C0 


C822 


10 


02 




C824 


A0 


83 




C826 


8D 


81 


C0 


C829 


60 







C816 



C829 



C826 



60 flxlc 

61 

62 

63 



$C000,x 



pi X 
i nc 
plx 
Jmp 5wrt52 



;Restore LC 
; Restore real X 



* GETLC - Gets language card state in Y 



65 

66 

67 

68 getlc 

69 

70 

71 

72 

73 

74 

75 

76 glcbnk 1 

77 glcdone 



equ 
Idy 
bit 
bpl 
Idy 
bit 
bpl 
Idy 
5 ta 
rts 



#$81 
rdl cram 
glcdone 
#$8B 

rdlcbnk2 
glcbnk 1 
*$83 
romi n 



;Language card enabled? 



;Bank 2? 



;Bank 1! 



C82A: 
C82A: 



C82A 



C82A:53 43 2B 29 
C82F:00 89 03 05 
C837:00 83 51 53 
C841 :00 81 04 06 
C849:00 84 52 54 
C853:00 11 13 14 
C85B:00 12 1A IB 
C866: 

C866:D2 CI CD A0 
C86C:CD CD D5 C9 



79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 



Diagnostic routine tables 



se tv 
ntbl 
swtbl0 

swtbll 

rswtbl 



rmes s 
smess 



equ 
dfb 
dfb 
dfb 
dfb 
dfb 
dfb 
dfb 
MSB 
asc 
asc 



83,67,43,41 ,7 



$ 

$00 

$00 



$89, $03, $05, $09, $01 , 
$83, $51 ,$53, $55, $57, 
$81 ,$04,$06,$0A,$02, 
$84, $52, $54, $56, $58, 
$13, $14, $16, $18, 
$1A,$1B,$1C,$1D, 



$11 
$12 



$0 

$0 

DN 

"RAM 

"MMUIOUGLU 



ZP" 



$7F 


$5F 






$0F 


$0D 


$00 


$80 


$7F 


$60 






$10 


$0E 


$00 


$7F 


$FF 


$7F 






$1E 


$1F 


$00 


$7E,$ 



C87S 
C87E 
CS80 
D000 



D3 F9 F3 F4 
0002 
07S0 



92 success asc "System 

56 ds $C880-*,0 

57 ds $D000-»,0 

58 include command 



OK" 

;Protocol converter 

;Serial port command processor 



2S COMMAND 
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De00 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 
D000 



2 
3 

•4 
5 

e 

7 
8 
9 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
13 
20 
21 
22 
23 
24 



t«««»«*«« 



t ««##»* « 



* The command routine now supports 5 new 2-character commands. These 

* commands enable or disable a feature of the serial port and are 

* derived from their equivalent in the super serial card for the //. 

* 

* The new commands are as follows: 

* L - send LF out after CR 

* X - detect XDFF, and wait for XON 

* F - accept keyboard input 

* M - ignore LF in after CR 

* C - auto CR when column count > printer width 
» 

* Usage of location $779 Cport 1) and $77A (port 2) are as follows: 

* bit 7 - echo output to screen if on 

* bit 6 - generate LF after CR if on 

* bit 5 - accept XDFF if on 

* bit 4 - ignore keyboard input if on 

* bit 3 - accept LF in after CR If on 

* bit 2 - a character was received through the ACIA and is in 

* location $SFE Cport 1) or $67E (port 2) if on 

* bit 1 - XDFF is accepted, awaiting XON if on 

* bit - signifies comm port if on, printer port if off 



******* 



************** 



**************** 



D000: 
D000: 

D000:48 
D001 ;3C B8 
D004:30 



1C 



000D 



D022 



D006:BC 38 06 

D009:F0 14 D01F 

D00B:BD 38 0G 

D00E:0A 

D00F:D0 0E D01F 



D01 1 


AC 


FB 


07 


D014 


8C 


79 


06 


D017 


A0 


BF 




D019 


8C 


FB 


07 


D01C 


4C 


BE 


D0 


D01F 


38 






D020 


68 






D021 


60 






D022 








D022 


BC 


42 


CI 


D02B 


29 


SF 




case 








D027 


48 






D028 


BD 


B8 


03 


D02B 


89 


08 




D02D 


D0 


03 




D02F 


68 






D030 


80 


52 




D032 








D032 


68 






D833 


48 







D022 



D032 



D084 



D032 



26 charCR 

27 acspace 

29 command 

30 

31 

32 

33 

34 

35 

36 

37 commandl 

38 

39 

40 

41 

43 nocmd 

44 nocmd2 
4B 

47 incmd 
48 

49 

50 
51 
52 
53 
54 
55 

57 iTicmd2 

58 

59 



equ 
equ 

pha 
bit 
bmi 
idy 
beq 
eor 
asl 
bne 
Idy 
sty 
idy 
sty 
J"^P 

sec 

pla 
rts 

equ 

Idy 
and 

pha 
Ida 

bit 
bne 
pia 
bra 

equ 
pla 
pha 



$0D 
$00 



sermode , x 
i ncmd 
eschar , X 
nocmd 
eschar , X 
A 

nocmd 
cursor 
o 1 dcur 
*cmdcur 
cursor 
comin i t 1 



devno2 , x 

#$5F 



sermode , x 

#$08 

i ncmd2 

i ncmd 1 



;need an "upper case" space character 

shove character on stack 

Already in command? 

If so , go do it 

If eschar = ignore commands 

Is it the command char? 
I gnor e high bit 
char not command char 
Save the cursor 

;Set command cursor 

;initiate command mode 

;Mark char not handled 
;Re5tore original char 



Command mode 

Get index for ACIA 

High bit doesn't matter, upshift lower 

; save character 

;need to see if in 2-chr command 

;bit 3 set if so 

; branch if so 

;pull char back, not in 2~chr cmd 

;go on with regular command mode 

handle 2nd chr of 2-chr commands 
pull char off stack 
& reshove it to keep stack neat 



1(3^ 



ApDcndix A: Finiiwair 
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DB34 


C9 


00 




60 




cmp 


*uc5pace 


D036 


D0 


04 


D03C 


61 




bne 


incmdS 


D038 


18 






62 




clo 




D039 


88 






63 




pla 




D03A 


80 


E4 


D020 


64 




bra 


nocmd2 


D03C 


BD 


B8 


03 


66 


i ncmd3 


Ida 


sermode , x 


D03F 


48 






67 




pha 




D040 


29 


07 




68 




and 


#7 


D042 


8D 


F8 


06 


69 




sta 


temp 


■D045 


68 






70 




pla 




D04e 


29 


F0 




71 




and 


*$F0 


D048 


9D 


B8 


03 


72 




sta 


sermode , x 


D04B 


68 






73 




pla 




D04C 


DA 






74 




phx 




D04D 


AE 


F8 


06 


75 




Idx 


temp 


D050 


C9 


45 




76 




cmp 


#$45 


D052 


F0 


71 


D0C5 


77 




beq 


enable 


D054 


C9 


44 




78 




cmp 


#$44 


DBBG 


F0 


6F 


D0C7 


79 




beq 


disable 


D0S8 


FA 






80 




plx 




D059 


DA 






81 




phx 




D05A 


DD 


38 


06 


82 




cmp 


eschar , x 


D05D 


08 






83 




php 




D05E 


AE 


F8 


06 


84 




Idx 


temp 


D061 


28 






85 




pip 




D062 


F0 


13 


D077 


86 




beq 


f lagit 


D064 


C9 


0D 




87 




cmp 


#charCR 


D0eG 


F0 


17 


D07F 


88 




beq 


one letter 


D068 






D068 


89 


cmd2nul 1 


equ 


* 


D0G8 


FA 






90 




plx 




D069 


AD 


79 


06 


91 




Ida 


oldcur 


D0ec 


8D 


FB 


07 


92 




sta 


cursor 


D06F 


1E 


B8 


03 


93 




asl 


sermode , x 


D072 


SE 


B8 


03 


94 




Isr 


sermode , x 


D075 


80 


A8 


D01F 


95 




bra 


nocmd 


D077 






D077 


97 


f lagit 


equ 


* 


D077 


FA 






98 




plx 




D078 


DA 






99 




phx 




D079 


FE 


B8 


03 


100 




Inc 


sermode , x 


D07C 


AE 


F8 


06 


101 




Idx 


temp 


D07F 






D07F 


102 


onelet ter 


equ 


* 


D07F 


BD 


25 


D2 


103 




Ida 


omd21i5t , 


D082 


80 


0B 


D08F 


104 




bra 


backtol 


D084 






D084 


106 


i ncmd 1 


equ 


« 


D084 


DA 






107 




phx 




D08S 


A2 


04 




108 




Idx 


#4 


D087 


DD 


25 


D2 


109 


cmd2I oop 


cmp 


cmd21l5t , 


D08A 


F0 


71 


D0FD 


1 10 




beq 


cmd2f ound 


D08C 


CA 






111 




dex 




D08D 


10 


F8 


D087 


112 




bpl 


cmd21oop 


D08F 






D08F 


1 13 


bac k to 1 


equ 


# 


D08F 


A2 


0C 




114 




Idx 


#12 


D091 


DD 


18 


D2 


115 


cmdioop 


cmp 


cmd 1 i s t , X 


D094 


F0 


74 


D10A 


116 




beq 


cmf ound 


D098 


CA 






117 




dex 





is it a space? (uppercased) 

no, go on with 2-chr cmd handling 

yes, ignore spaces between chrs of 

2-chr cmds 

pull uppercased char off stack 

ie mark them "handled" 



de back 

ode for a minit 

all but bits 0-2 
is is index of which cmd it is 
de back 

bits 0-3 
re done with them now 
c t er back 
Cn) on stack 

to command's Ist chr 
E? 

a D? 

X = Cn 

ack to keep stack neat 

o the command character 

It of comparison for a bit 

index to cmd's first chr 
result 

-chr cmd followd by nother cmd 
guess what) CR? 
-chr command 

nted but legal 2-chr cmds 
n> off stack 
on-cmd-mode cursor 



clear cmd-mode bit Cbit 7 of sermode) 
by shifting out bit 7 & shifting in a 
return marking character not handled 

come here if get eschar after LXFM or T 

need X=Cn to set bit of sermode 

but leave Cn on stack too 

bit was 0, is now 1 — means new cmd 

mode 

reload X=index to cmd's first chr 

come here if 2-chr cmd turns out 1 chr 

get command chr 

treat it as if we just got it 

in command mode, not 2-chrs the 

Save slot 

check 5 possible 2-chr cmds 

is it t here ? 

yes, need to flag it for next time 

nope 

try next if there is one 

come here to check for 1-chr cmds 

Check 13 commands 



get sermo 


save serm 
throw out 
save - th 


get sermo 


now clear 


since we ' 


get chara 


shove X C 


get index 


is it an 


yes 

no , is it 


yes 

r e t r i eve 

push it b 


compare t 


save resu 
reload X= 


re t r i eve 


yes tis 1 
is it a C 


yes - a 1 


unimpl eme 
pull X (C 


restore n 



Right char "r 



/'ippenoix 



nriware Ijstirig 
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DB97: 10 F8 
D099:FA 
D09A:S8 
D09B:48 
D09C:29 7F 
D09E:C9 20 
D0A0:B0 03 
D0A2:9D 38 06 

D0AB:19 30 
D0A7:C9 0A 

D0A9:B0 33 
D0AB:A0 0A 
D0AD:6D 7E 
D0B0:88 
D0B1:D0 FA 
D0B3:80 



Command processor 



0A 



D091 



D0A5 



D0DE 



D0AD 
D0BF 



D0B5: D0BB 
D0B5:BD B8 03 
D0B8:29 C0 

D0BA:9D B8 03 

D0BD:A9 00 

D0BF:8D 7E 04 

D0C2:38 

D0C3:80 25 D0EA 

D0C5 



D0C7 



D0CS 






D0CS:38 




D0C6:90 




D0C7: 




D0C7: 18 




D0C8:08 




D0C9:E0 


00 


D0CB:F0 


27 


D0CD:E0 


04 


D0CF:F0 


41 


D0D1: 




D0D1 






D0D1 






D0D1 






D0D1:8A 




D0D2: 18 




D0D3:0A 




D0D<1:69 


03 


D0D6:AA 




D0D7:28 




D0D8:B0 


01 


D0DA:E8 




D0DB: 


4C 


39 D1 



D0F4 



D112 



D0DB 



D0DE: 



1 18 
119 
120 
121 
122 
123 
124 

125 cmdz2 

126 ckdlg 
127 

128 

129 

130 dlgloop 

131 

132 

133 



bpl 
plx 
pla 
pha 
and 
cmp 

bC5 

5 ta 

eor 
cmp 

bc5 
Idy 
adc 
dey 
bne 
bra 



for serial & comm 31-MAY-85 
cmdl oop 
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1 35 comi n i 1 1 equ 

136 Ida 

137 and 



138 

139 

140 cominit 

141 

142 

144 enable 

145 

146 

147 disable 

148 

149 

150 

151 

152 

153 



5 ta 
Ida 
5 ta 
sec 
bra 

equ 
sec 
dfb 
equ 
c Ic 
php 
cpx 
beq 
cpx 
beq 



#$7F 
#$20 
ckdig 
eschar , x 

#$30 
#$0A 

cdone 

#10 

number 

dlgloop 
coml nl t 



sermode , x 
#$C0 

sermode , x 

#0 

number 



; If 


ch 


;lt 


ca 


; branc 


; Save 


cdone 


i zap 


1 


! if 


no 


mt 


ru 


;if 


no 


;A = 


A 


;C = 


o 



cmset 



$90 



^25 »«#»#»##»###» 

156 * for other 2 

157 * for an E or 
^ gg ******* 



omd21 
#4 
cmd . c 

************* 
■chr cmds , the 
2Xt4 for a D 



;Ne didn't find it 



ar is cntl char 

n be the new comd char 

h If not cntl character 

comd char, drop thru ckdlg to 

t down to 0n if char was a digit 

t a digit, it Is unexpected 

der 

t , branch 

+ 10 • current number 
n first entry 



;not starting new cmd mode, just save # 

;start new cmd mode here 

;get sermode 

;olear bits 0-5 (starting a new cmd seq 

;they are used for misc during cmd mode) 
;load a to stuff in NUMBER 

;Mark in command mode 



got a 2-chr command aE 

set carry 

bcc to skip next byte Cthe CLC) 

got a 2-chr command aD 

clear carry 

push P to save carry 

If X=0 then command is LE or LD 

so just make it act like L or K 

if X=4 then command Is CE or CD 

skip if so 



160 
161 
162 
163 
164 
165 
166 
167 
168 xready 



D0DE 170 cdone 



txa 
clc 
asl 
adc 
tax 
pip 
bcs 
inx 
Ji^P 

equ 



A 
#3 



xready 
cmdi 



D0DE:BD B8 03 171 

D0E1:4A 172 

D0E2:B0 D1 D0B5 173 

D0E4:AD 79 06 174 

D0E7!8D FB 07 175 



Ida 


sermode , 


Isr 


A 


bcs 


cominl t 1 


Ida 


oldcur 


sta 


cursor 



*********************** 

Ir FLAGS masks' Indexes are 2X+3 

********************** 

!Copy X to ace for arithmetic 

iclear carry for arithmetic 

jmultiply index by 2 

iadd 3 to get mask index 

iput mask Index in X 

;get carry back 

;carry set « Enable so X is ready 

1 cmd was Disable so Inc X to next mask 

igo do mask stuff to FLAGS 

isermode bit tells whether to set or 

clear cmd mode 
; so get it 

; shift bit to carry 
ilf set, start new cmd mode 
;Restore the cursor 
;& fall through to cmset with carry 

clear 
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D0EA 


08 






176 


cmse t 


php 




D0EB 


IE 


B8 


03 


177 




asl 


sermode , x 


D0EE 


28 






178 




pip 




D0EF 


7E 


B8 


03 


179 




ror 


sermode , x 


D0F2 


68 






180 




pla 




D0F3 


60 






181 




rts 




D0F4 






D0F4 


183 


cmd21 


equ 


# 


D0F4 


A9 


4C 




184 




Ida 


*$4C 


D0F6 


28 






185 




pip 




D0F7 


B0 


96 


D08F 


186 




bcs 


backtol 


D0F9 


A9 


4B 




187 




Ida 


#$4B 


D0FB 


80 


92 


D08F 


188 




bra 


backtol 


DBFD 


8A 






190 


cmd2f ound 


txa 




D0FE 


FA 






191 




pljc 




D0FF 


ID 


B8 


03 


192 




ora 


sermode , x 


D102 


09 


08 




193 




ora 


**08 


D104 


9D 


B8 


03 


194 




sta 


sermode , x 


D107 


38 






195 




sec 




D108 


80 


E0 


D0EA 


196 




bra 


cmset 


D10A 


A9 


D1 




198 


cmf ound 


Ida 


#<cmdcr 


D10C 


48 






199 




pha 




D10D 


BD 


FB 


D1 


200 




Ida 


cmdtable , x 


D110 


48 






201 




pha 




D1 11 


60 






202 




rts 




D112 


28 






204 


cmd . c 


pip 




D113 


FA 






205 




plx 




D114 


B0 


05 


D11B 


206 




bcs 


cmd . c 1 


D116 


9E 


B8 


04 


207 




stz 


pwd th , X 


D119 


80 


C3 


D0DE 


208 




bra 


cdoTie 


D11B 


BC 


86 


D1 


210 


cmd. 1 


Idy 


def Idx2-*C 


D11E 


20 


2A 


D2 


211 




Jsr 


r . ge tal t 


D121 


9D 


B8 


04 


212 




sta 


pwdth , X 


D124 


80 


B8 


D0DE 


213 




bra 


cdone 


D12e 


FA 






215 


cmdz 


plx 




D127 


9E 


B8 


04 


216 




stz 


pwdth, X 


D12A 


A9 


00 




217 




Ida 


#0 


D12C 


4C 


A2 


D0 


218 




Jmp 


cmdz2 


D12F 






D12F 


220 


cmdcr 


equ 


* 


D12F 






D12F 


221 


cmdn 


equ 


» 


D12F 


7A 






222 




ply 




D130 


AD 


7E 


04 


223 




Ida 


number 


D133 


F0 


05 


D13A 


224 




beq 


omdl2 


D135 


99 


B8 


04 


225 




sta 


pwdth , y 


D138 


F0 






226 




dfb 


$F0 


D139 






D139 


227 


cmdl 


equ 


* 


D139 






D139 


228 


cmdk 


equ 


» 


D139 






D139 


229 


omdl 


equ 


» 


D139 


7A 






230 




ply 




D13A 


B9 


B8 


06 


231 


omdl2 


Ida 


flags ,y 



jset command mode according to carry 

;leave5 carry clear 
;oharacter handled 
;because carry clear... 

;come here to handle LE & LD 

jmake LE look like L 

;get P back with carry indicating E or D 

;carry set means it was an E 

;make LD look like K 



;copy index of cmd to ace 

^restore X to Cn 

jcopy top 2 bits of sermode 

i& set bit 3 - 2-chr-command-mode flag 

j sermode holds index to 2-chr command 

iset carry so we stay in command mode 

; for next t ime 

;get hi byte of where to go 

; save it on stack 

;get lo byte of where to go 

; save it on stack 

;go there by RTSing 

jrestore status to check carry bit 

jrestore slot number in x 

; sk ip if enable 

;CD is same as PWDTH=0, no CR 

;we're done here 

;get y index into aux screenholes 
;go get it from aux 
;restore default PWDTH 
jwe're done here 



iZero escape character 
;And the width 



Get number inputted 

skip if 

Update printer width 

BEQ opcode to skip next byte Cthe PLY) 
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D13D:3D 


02 


D2 


232 




and 


mask 1 , X 


D140: ID 


0D 


D2 


233 




ora 


ma5l<2 , X 


D143:99 


B8 


06 


234 




sta 


f lags , y 


D14e:98 






235 




tya 




D147:AA 






236 




tax 




D148:4C 


DE 


D0 


237 


cdone2 


jmp 


cdone 


D14B:88 






239 


cmdp 


dey 




D14C:A9 


IF 




240 


cmdd 


Ida 


*$1F 


D14E:38 






241 




sec 




D14F:90 






242 




dfb 


$90 


D1S0:A9 


F0 




243 


cmdb 


Ida 


#$F0 


D152:18 






244 




cic 




D153:39 


FB 


BF 


245 




and 


sen 1 1 , y 


D156:8D 


F8 


06 


246 




sta 


temp 


D159:FA 






247 




plx 




D1SA:AD 


7E 


04 


248 




Ida 


number 


D15D:29 


0F 




249 




and 


#$0F 


D15F:90 


05 


D166 


250 




bcc 


noshif t 


D161 :aA 






251 




asl 


A 


D162:0A 






252 




asl 


A 


D163:BA 






253 




asl 


A 


D164;0A 






254 




asl 


A 


D165:0A 






255 




asl 


A 


D166:0D 


F8 


06 


256 


noshif t 


ora 


temp 


D1G9:C8 






257 




i ny 




D16A:80 


17 


D183 


258 




bra 


cmdp2 


D16C:B9 


FA 


BF 


260 


cmds 


Ida 


scomd ,y 


D16F:48 






261 




pha 




D170:09 


0C 




262 




ora 


#$00 


D172:99 


FA 


BF 


263 




sta 


scomd, y 


D17S:A9 


E9 




264 




Ida 


^233 


D177:A2 


53 




265 


mswai t 


Idx 


#83 


D179:48 






266 


ms loop 


pha 




D17A:e8 






267 




pla 




D17B:CA 






268 




dex 




D17C:D0 


FB 


D179 


269 




bne 


ms loop 


D17E:3A 






270 




dec 


a 


D17F:D0 


F6 


D177 


271 




bne 


mswai t 


D181:68 






272 




pla 




D182:FA 






273 




plx 




D183: 




D183 


274 


cmdp2 


equ 


* 


D183:99 


FA 


BF 


275 




sta 


scomd ,y 


D186:80 


C0 


D148 


276 




bra 


cdone2 


D188: 




D188 


278 


cmdr 


equ 


* 


D188:99 


F9 


BF 


279 




sta 


sstat ,y 


D18B:AD 


7B 


06 


280 




Ida 


vf ac t V 


D18E:0A 






281 




asl 


A 


D18F:20 


97 


C7 


282 




jsi- 


swsthl<2 


D192:90 


03 


D197 


283 




bcc 


cmdq 


D194:20 


9D 


C7 


284 




] = '• 


swzzqt2 


D197:18 






285 


cmdq 


clc 




D198:B0 






286 




dfb 


$B0 



;Mask off bit we'll change 

;Change it 

iBack it goes 

; Put slot back in x 

; ( via ace) 

;Good bye 



;Make y point to command reg 
;Mask off high three bits 
;C=1 means high 3 bits 
;BCC opcode to skip next byte 
;Ma5k off lower 4 bits F0 = BNE 
;F0 will skip this if cmdp or cmdd 
sMask off bits being changed 
; Save i t 

;Get inputed number 

;Only lower nibble valid 

;If C=1 shift to upper 3 bits 



;Get the rest of the bits 

;Put them in the ACIA 

; increment puts em away where they go. 

jTransmit a break 

; Save current ACIA state 

j Do the break 

For 233 ms 

Wait 1 ms 

((12*82)+11)+2*3=1000U5 



sReset the ACIA 

;Check if video firmware active 

; Save it i n C 

jassume video firmware active 

;branch if good guesser... 

; Reset the hook s 

;Quit terminal mode 

;BCS to skip next byte 



166 



Appendix A: 



2G COMMAND 




Command processor 


for serial 


D 199: 38 






287 


cmdt 


sec 




D19fl:FA 






288 




plx 




D19B:20 


A0 


D1 


289 




jsr 


set term 


D19E:80 


A8 


D148 


290 




bra 


cdone2 


D1A0: 




D1A0 


292 


set term 


equ 


# 


D1A0:BD 


B8 


03 


293 




Ida 


sermode , x 


D1A3:89 


40 




294 




bit 


#$40 


D1A5:90 


12 


D1B9 


295 




bcc 


stclr 


D1A7:D0 


20 


D1C9 


296 




bne 


s twasok 


D1A9:E4 


39 




297 




cpx 


k swh 


D1AB:D0 


47 


D1F4 


298 




bne 


strts 


D1AD:09 


40 




299 




ora 


#$40 


D1AF;AC 


79 


06 


300 




Idy 


oldcur 


D1B2:8C 


7A 


08 


301 




sty 


oldcur2 


D1B5:A0 


DF 




302 




Idy 


#termcur 


D1B7:80 


07 


D1C0 


303 




bra 


stset 


D1B9:F0 


0E 


D1C9 


304 


stclr 


beq 


5 twasok 


D1BB:29 


BF 




305 




and 


#$BF 


D1BD:AC 


7A 


06 


306 




Idy 


oldcur2 


D1C0;9D 


B8 


03 


307 


stset 


sta 


sermode , x 


D1C3:8C 


79 


06 


308 




sty 


oldcur 


D1C6:8C 


FB 


07 


309 




= ty 


cursor 


D1C9:BC 


42 


C1 


310 


s twasok 


Idy 


devno2 , x 


D1CC:58 






311 




ell 




D1CD:08 






312 




php 




D1CE:78 






313 




sel 




D1CF:B9 


FA 


BF 


314 




Ida 


scomd , y 


D1D2:a9 


02 




315 




ora 


#$2 


D1D4:90 


02 


D1D8 


316 




bcc 


cmdt2 


D1D6:29 


FD 




317 




and 


#$FD 


D1D8: 




D1D8 


318 


cmdt2 


equ 


# 


D1D8:99 


FA 


BF 


319 




sta 


scomd ,y 


D1DB:A9 


00 




320 




Ida 


#0 


D1DD:6A 






321 




ror 


a 


D1DE:8D 


FA 


05 


322 




sta 


typhed 


D1E1: 10 


07 


D1EA 


323 




bpl 


cmdt3 


D1E3:9C 


7F 


05 


324 




stz 


twser 


D1EG:9C 


7F 


06 


325 




stz 


t r ser 


D1E9:8A 






326 




txa 




D1EA:8D 


FF 


04 


327 


cmdt3 


sta 


aclabuf 


D1ED:28 






328 




pip 




D1EE:8E 


FF 


05 


329 


flush 


stx 


twkey 


D1F1:8E 


FF 


06 


330 




stx 


t r key 


D1F4:60 






331 


strts 


rts 




D1FS: 






333 




MSB 


OFF 


D1FS: 




D1F5 


334 


cmdtable 


equ 


# 


D1F5:38 






335 




dfb 


>cmdl-1 


D1F6:38 






336 




dfb 


>cmdk - 1 


D1F7:38 






337 




dfb 


>cmdl- 1 


D1F8:2E 






338 




dfb 


>cmdn~ 1 


D1F9:2E 






339 




dfb 


>cmdcr- 1 


D1FA:4F 






340 




dfb 


>cmdb- 1 


D1FB:4B 






341 




dfb 


>cmdd- 1 


D1FC:4A 






342 




dfb 


>cmdp- 1 


D1FD:96 






343 




dfb 


>cmdq- 1 
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;Into terminal mode 
^Recover X 



set/clear terminal mode 

Get terminal mode status 

Z=1 if not in terminal mode 

Branch if clearing terminal mode 

Was already set 

Are we in the input hooks 

Leaves C= 1 if = 

Set term mode bit 

Save what was in oldcur 

Get new cursor value 

Branch if already clear 
Clear the bit 
Restore the cursor 

Save cursor to restore later 



;want to leave with interrupts active 

;but off while we twittle bits 

;di5able receiver interrupts if 
; not in terminal mode 
;enable when in terminal mode 



;5et kbd interrupts according to t-mode 

;branch if leaving terminal mode 
; and ser buf . . . 

juse X to enable serial buffering 

;restore carry, enable interrupts. 
jFlush the type ahead buffer 



;command routines' lo bytes 
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D1FE:87 
D1FF:6B 
D200:98 
0201 :2S 

D202: 

D202:7F BF BF 7F 

D20D:80 00 40 00 



D218 
49 4B 4C 4E 
0D 
42 44 50 51 

D22S 
4C 58 46 4D 



D218 
D218 
D21C 
D21D 
D225 
D225 

D22A 
D22A 
D22A 
D22A 



D22A:AD 13 C0 
D22D:0A 
D22E:AD 18 C0 
D231 :08 
D232:8D 00 C0 
D235:8D 03 C0 
D238:B9 78 04 
D23B:28 

D23C:B0 03 D24 1 
D23E:8D 02 00 
D241 : 10 03 D246 
D243:8D 01 C0 



D246:60 



D247:03 07 
D249: 



27 MBASIC 
D249: 



344 
345 
346 
347 



dfb 
dfb 
dfb 
dfb 



349 * masks for: 



350 maski 

351 ma5k2 

353 cmdllst 

354 

355 

356 

357 cmd21l5t 

358 



dfb 
dfb 

equ 
asc 
dfb 
asc 
equ 
asc 



>cmdr - 1 
>cmd5- 1 
>cmd t - 1 
>cmdz- 1 

I K L N CR XE XD FE FD ME MD 
$7F,$BF,$BF,$7F,$FF,$DF,$DF,$EF,$EF,$F7,$F7 
$80, $00, $40, $00, $00, $20, $00, $00, $10, $00, $08 



"IKLN" 

$0D 

"BDPQRSTZ" 



;or (part of cmdlist) 



"LXFMC" ;2-chr commands' first chrs 

360 »*•»»»•••*»•••♦»•••»•»••»•»»»••••«•••♦.»»..»«.».,» 

361 * R.GETALT Is the same as GETALT in main rom. Only the 

362 • location Is different. 

363 ***•»*••••••*••••••»»••♦•••»»«••»••••♦••«»•»»«».«» 

rdramrd 
rd80col 



365 r.getalt Ida 

366 asl 

367 Ida 

368 php 

369 sta 

370 sta 

371 Ida 

372 pip 

373 bcs 

374 sta 

375 r.getaltl bpl 

376 sta 

377 r.getalt2 rts 



; save state of aux memory 
;and the 80STORE switch 



olr80coi 
rdoardram 
$478, y 

r . getal t 1 
rdmal nram 
r . getal t2 
set80col 



379 defldx2 
59 



01B7 



dfb 3,7 
include mbasic 

Mouse BASIC routines 

2 ds $D400-«,0 



;no 80STORE to get page 1 
;pop In the other half of RAM 
;read the desired byte 
;and restore memory 



; same as DEFIDX in main rom. 
;Mou5e BASIC routines @ 2:C100 
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0400 








D40B 








D400 








D400 








D400 








D400 








D400 








D400 








D400 








D400 








D400 








D4 








D4 








D400 








D400 








D400 








D400 


91 


28 




D402 


A9 


05 




D404 


85 


38 




D406 


AD 


00 


C0 


D409 


0A 






D40A 


08 






D40B 


78 






D40C 


20 


41 


D4 


D40F 


A0 


05 




D41 1 


AE 


7C 


05 


D414 


AD 


7C 


04 


D417 


20 


5C 


D4 


D41A 


A0 


0C 




D41C 


AE 


FC 


05 


D41F 


AD 


FC 


04 


D422 


20 


SC 


D4 


D425 


AD 


7C 


07 


D428 


2A 






D429 


2A 






D42A 


2A 






D42B 


29 


03 




D42D 


49 


03 




D42F 


1A 






D430 


28 






D431 


A0 


10 




D433 


20 


6D 


D4 


D436 


7A 






D437 


A2 


11 




D439 


A9 


8D 




D43B 


9D 


00 


02 


D43E 


4C 


84 


C7 
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»*#«*##«#####««###*«*•«»»##****#*«««»#«» 



D400 



BASICIN 

Creates 
XXXXX = 
YYYYY = 
SS = S 

1 
2 
3 
4 



#«###»####«»*»*«•#»##«*#»##»»»•*##«« 



4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 

19 baslcin 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 

49 putlnbuf 
50 



Input from basic 

*XXXXX,+YYYYY,+SS 

= X pos i t ion 

= Y posi t ion 

tatus 
= Key pressed 
= Button pressed 
» Button just pressed 
= Button Just released 
= Button not pressed 



equ 
sta 
Ida 
sta 
Ida 
asl 
php 
sei 

i=f 

Idy 
Idx 
Ida 

jsi- 
Idy 
Idx 
Ida 

Jar 
Ida 
rol 
ro 1 
rol 
and 
eor 
inc 
pip 
Idy 

ply 

Idx 
Ida 

sta 
]mp 



Cbas 1 ) , y 

i<'>inent 

k swi 

kbd 

A 



xmread2 

*5 

mouxh 

mouxl 

hextodec 

#12 

mouyh 

mouy 1 

hextodec 

moustat 

A 

A 

A 

*3 

#3 

A 

*16 
hexdec2 

#17 
#$8D 
inbuf , x 
swr 1 52 



; Fix flashing char 
; F i x input entry 

jtest the keyboard 

; Save kbd and int stat for later 

iNo interrupts while getting position 

;Move X position into the buffer 



; Con\> 



■t it 



jRestore int & kbd status 

■,X = from last div10 

iX = EOL 

; Car r iage return 

; Gobac k 



D441 




D441 




D441 




D441 




D441 




D441 




D441 


A9 20 


D443 


2D 7C 



D441 



06 



52 ##»###»»«#####•»#»###*##*##»»#»##»«**#«* 

53 • 

54 » XMREAD2 - duplicate of xmread 

55 * 

57 xmread2 equ * 

58 Ida #movarm iHas mouse moved? 

59 and mouarm 



Usiinj' 
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Mouse BASIC routines 



0446: 1C 

D449!2C 

D44C:30 

D44E;09 

D450!2C 

D453; 10 

D4S5:09 

D457;8D 

D45A: 18 

D45B:60 

D45C: 

D4SC: 

D4SC: 

D45C: 

D45C: 

D4SC: 

D45C: 

D45C: 

D45C: 

D45C:E0 

D45E:90 

D460:49 

D462:69 

D464:48 

D465;8A 

D466:49 

D468:69 

D46A:AA 

D46B;e8 

D46C:38 

D46D:8D 

D470:8E 

D473:A9 

0475:90 

0477:A9 

0479:48 

047A;A9 

D47C:99 

047F; 

D47F: 

047F: 

047F: 

D47F:A2 

0481 :A9 

D483: 18 

0484 :2A 

D485:C9 

0487:90 

D489:E9 

D48B:2E 

048E:2E 

0491 :CA 

D492:D0 

0494:09 

0496:99 

0499:88 

D49A:F0 

O49C:C0 



7C 06 

63 C0 

02 0450 

80 

7C 07 

02 0457 

40 

7C 07 



80 
00 

FF 
00 



FF 



D45C 



0460 



14 02 

15 02 
2B 

02 D479 

20 



2C 

01 02 



D47F 



048B 



1 1 
00 



0A 
02 
0A 

14 02 

15 02 



F0 0484 

30 

00 02 

08 04A4 



60 

61 

62 

63 

64 xrbut3 

65 

66 

67 xrbut4 

68 

69 



trb 
bit 
bmi 
ora 
bit 
bpl 
ora 
5 ta 
c 1 c 
rts 



mouarm 
moubu t 
xrbut3 
*$80 
mous tat 
xrbu 1 4 
*$40 
mous tat 
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; Clear arm bit 
; But ton pressed? 
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70 •♦•••»•»«•».«...»»»,.,«,,,,,,,,,,,,,,,,, 

71 • 

72 * HEXTODEC - Puts +0000, Into the input buffer 

73 • Inputs: A = Low byte of number 

74 * X " High byte of number 

75 * Y = Position of ones diqit 

76 * ^ 

78 hextodec equ 
cpx 



79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 hexdec2 

91 

92 

93 

94 

95 hdpos2 

96 

97 

98 hdloop 

99 • 



bcc 
eor 
adc 
pha 
t xa 
eor 
adc 
tax 
pla 
sec 
s ta 
stx 
Ida 
bcc 
Ida 
pha 
Ida 
5 ta 
equ 



#$80 
hexdec2 
*$FF 
*0 



#$FF 
*0 



binl 
bi nh 
#' t ' 
hdpo52 
#' - ' 

#' , ' 

i nbuf + 1 , y 



;I5 it a negative number? 

;Form two's complement 
;C = 1 from compare 
; Save i t 



;Store the number to convert 
;Store the sigh in the buffer 



;Save the sign 
iStore a comma after the number 

iDivide by 10 



100 * Divide BINH,L by 10 and leave remainder in A 

101 * 



102 Idx 

103 Ida 

104 clc 

105 dv101oop rol 
cmp 



106 

107 

108 

109 dv101t 

110 

1 1 1 

112 

1 13 

114 

115 

116 

117 



bcc 
sbc 
rol 
rol 
dex 
bne 
ora 
5 ta 
dey 
beq 



#16+1 
#0 

A 

#10 

dv10lt 

#10 

blnl 

bi nh 

dvl loop 

#'0' 

i nbuf , y 

hddone 
#7 



;16 bits and first time do nothing 
;C=0 so first ROL leaves A=0 

;A >= 10? 

; Branch if < 

;C = 1 from compare and is left set 



; Make a ascl 1 char 
; Stop on 0,6,12 



Append): 



''irmware IJst: 
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Mouse BASIC 


rout ines 


D49E;F0 04 


D4A4 


118 


beq 


hddone 


D4A0;C0 0E 




119 


cpy 


#14 


D<tA2:D0 DB 


D47F 


120 


bne 


hdloop 


D4A4:68 




121 hddone 


pla 




D4A5:99 00 


02 


122 


sta 


inbuf , 


D4A8:60 




123 


rts 
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; Ge t the sign 
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D4A9: 



60 



include banger 
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D4A9 

D4ft9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4fl9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4A9 

D4AC 

D4AF 

D4B2 

D4B2 



Apple //c Diagnostics 
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001 1 
0009 
0001 
05B8 



8D 50 C0 
8D 78 C0 
8D SF C0 



D4B2: 



D4B2 

D4B4 

D4B6 

D4B7 

D4BA 

D4BC: 

D4BD: 

D4BF: 

D4C0: 

D4C3: 

D4CS: 

D4C7: 

D4C8: 

D4CA: 

D4CB: 

D4CE: 

D4D0: 

D4D2: 

D4D3: 

D4D5: 



:A0 04 

:A2 00 

: 18 

:79 2A C8 

!95 00 

:E8 

:D0 F7 

: 18 

:79 2A C8 

:D5 

:D0 10 

:E8 

:D0 F5 

:6A 

:2C 19 C0 

: 10 02 

r49 A5 

88 

10 El 

30 06 



D4Be 



D4D7 



D4BF 



D4D2 



D4B6 
D4DD 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 * 

28 GLUIDX 

29 lOUIDX 

30 MMUIDX 

31 SCREEN 

32 • 

33 DIAGS 
34 



These routin 
applicable t 

In the event 
is written t 
When RAM fai 
detected in 
f oi lowed by 
For example, 
detected as 
printed prec 

When the MMU 
If the lOUDI 



The test wi 1 
Apple keys r 
failures are 
the middle o 
either of th 
may be initi 
is on the sc 
pressed with 



EQU 
EQU 
EQU 
EQU 



es test all 128K ram. All combinations of soft switches 
o the //c are tested and verified. 

of any failure, the diagnostic is halted. A message 

screen memory indicating the source of the failure. 
Is the message is composed of "RAM ZP" (failure 
the first page of RAM) or "RAM" (other 63.7SK), 
a binary representation of the failing bits set to "1" 

"RAM 110 0" indicates bits 5 and 6 were 
failing. To represent auxiliary memory, a "*" symbol is 
eeding the message. 

or IDU fall, the message is simply "MMU" or "lOU". 
S or DHIRES switch fails, the message is "GLU". 

1 run continuously for as long as the Open and Closed 
emain depressed (or no keyboard is connected) and no 

encountered. The message "System OK" will appear in 
f the screen when a successful cycle has been run and 
e Apple keys are no longer depressed. Another cycle 
ated by pressing both Apple keys while this message 
reen. To exit diagnostics. Con trol -Reset must be 
out the Apple keys depressed. 



$11 
$09 
$01 
$5B8 



35 
36 
37 

38 



s ta 
s ta 
s ta 

Test Zero-Pa 

Accumulator 

stack . 

Addresses be 



40 TSTZPG 

41 

42 zpl 

43 

44 

45 

46 

47 zp2 

48 

49 

50 

51 

S2 

53 

54 

55 

se 

57 zp3 

58 

59 



Idy 
Idx 
c Ic 
ado 
s ta 
inx 
bne 
olc 
adc 
cmp 
bne 
inx 
bne 
ror 
bit 
bpl 
eor 
dey 
bpl 
bmi 



txtclr ;text mode off 

ioudsbl iDisable lOU 

setan3 ;Double hires off 

ge, then all of memory. Report errors when encountered, 

can be anything on entry. All registers used, but no 

tween $C000 and $CFFF are mapped to main $D000 bank. 

#$4 
*0 



ntbl ,y 
$00, X 

zp1 

ntbl ,y 
$00, X 
ZPERROR 

zp2 

a 

rdvblbar 

zp3 

*$A5 

zpl 
TSTMEM2 



;fill zero page with a pattern 



;after all bytes filled, 

; ACC has original value again. 

;so values can be tested 

jbranch if memory failed 

jloop until all 256 bytes tested 
ichange ACC so location $FF will change 
; use RDVBL for a little randomness... 



;use a different pattern now 
jbranch to retest with other value 
Sbranch always 



172 
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D4D7:55 00 
D4D9: 18 
D4DA:4C 73 C4 
D4DD:4C C6 C3 



Apple //c Diagnostics 

$00, X 



61 ZPERROR 

62 

63 

64 TSTMEM2 



eor 
c Ic 
jmp BADBITS 



JMP 



TSTMEM 
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;which bits are bad? 
jindicate zero page failure 

;Off to the rest of it 



D4E0: D4E0 

D4E0:20 9D C7 

D4E3:68 

D4E4:7A 

D4EB:68 

D4E6:A9 FF 

D4E8;AA 

D4E9;E8 

D4EA:5D F5 D4 

D4ED:9D 00 02 

D4F0: 10 F7 D4E9 

D4F2:4C 84 C7 

D4FS:AD 3B 0A 0B 
D4FD:00 05 08 0C 
DB05: 1C 07 0C 45 
D50D: IC 07 07 05 
D51S:0E 45 61 32 



D51D:53 6A 2B 
D52S:3D 06 07 
D52B: 



0C 
IB 



66 zznm 

67 

68 

69 

70 

71 

72 

73 zz loop 

74 

75 

76 

77 

79 qtbl 

80 

81 

82 

83 

84 

85 

61 



equ 

]='• 
pla 
ply 
pla 
Ida 
tax 
inx 
eor 
s ta 
bpl 
ji^P 

dfb 
dfb 
dfb 
dfb 
dfb 
dfb 
dfb 



swzzqt2 ;Get out of the hooks 

;Get junk off of stack 



*$FF 



qtbl ,x 
i nbuf , x 
zz loop 
swr 1 52 

$AD,$3B,$0A,$0B,$48,$77,$3E,$05 
$00,$05,$08,$0C,$1E,$53,t65,$37 
$1C,$07,$0C,$45,$62,$27,$00,$17 
$1C,$07,$07,$0S,$4B,$6D,$24,*02 
$0E,$45,$61,$32,$18,$02,$07,$1D 
$53,$6A,$2B,$0C,$08,$16,$53,$68 
$3D,$06,$07,$1B,$01 ,$E3 



include vectors2 



D52B 






D52B 






DS2B 






D52B 






FFFA 


88 


C7 


FFFC 


88 


C7 


FFFE 


8E 


C7 



2 ««««««««««'««««««'»«»*««««««««««««*»*«««»« 

3 • VECTORS 

2ACF 5 ds $FFFA-»,»00 

6 dw 5wreset2 ;NMI 

7 dw swre5et2 ;RESET 

8 dw 5wirq2 ;INT 
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SORTED BY SYMBOL 



3D 


A1H 


3C 


AIL 


FE7F 


A1PCRTS 


3F 


A2H 


40 


A3L 


43 


A4H 


44 


ASL 


45 


ACC 


C24E 


ACIADONE 


C1B4 


ACIAINT 


FDD1 


ADD 


FD84 


ADDINP 


C24C 


AIAUX 


C208 


AIEATIT 


C20A 


AIPASS 


CI DC 


AIP0RT2 


C91D 


AM0D1 


C93A 


AM0D2 


C94A 


AMDDB 


C94F 


AM0D6 


?03F5 


AMPERV 


CBBB 


APPLE2C 


C580 


ATALK 


D08F 


BACKT01 


C4B0 


BADPRIM 


C6A2 


BADRD1 


C7C1 


BANGER 


2B 


BAS2H 


FBD0 


BASCLC2 


FEB3 


BASCONT 


E003 


BASIC2 


C324 


BASICENT 


28 


BASL 


C47D 


BBITS1 


FA85 


BEEPSKIP 


FF3A 


BELL 


C53F 


BIGLOOP 


021B 


BINH 


FE00 


BL1 


FE04 


BLANK 


CS47 


BLP3 


CBBG 


BLP4 


3C 


BOOTTMP 


?C326 


BPRINT 


03F0 


BRKV 


C4CE 


BSWTCH1 


?FC10 


BS 


C4E7 


BSWTCH3 


C062 


BUTN1 


C38A 


C03 


C305 


C3KEYIN 


FD62 


CANCEL 


?CD7D 


CGO 


F9BA 


CHAR1 


0D 


CHARCR 


C234 


CHARPTR 


24 


CH 


CI 38 


CHKMOU 


FF7A 


CHRSRCH 


FFCC 


CHRTBL 


FC4G 


CLE0P1 


CB04 


CLICK 


CBF1 


CLR2 


CC02 


CLR3 


CBDA 


CLR80 


C000 


CLR80COL 


?C0BA 


CLRAN1 


?C0BC 


CLRAN2 


C2AB 


CLRCOL 


FC9C 


CLREOL 


FC42 


CLREDP 


CBCF 


CLRHALF 


CC99 


CLRKBD 


FCA0 


CLRLIN 


F838 


CLRSC2 


?F832 


CLRSCR 


F83C 


CLRSC3 


F836 


CLRTOP 


D0FD 


CMD2F0UND 


D22S 


CMD2LIST 


?DaG8 


CMD2NULL 


D1B0 


CMDB 


D14C 


CMDD 


D139 


CMDI 


D139 


CMDL 


D218 


CMDL I ST 


D14B 


CMDP 


D183 


CMDP2 


D16C 


CMDS 


D1D8 


CMDT2 


D1F5 


CMDTABLE 


D0A2 


CMDZ2 


C168 


CMLOK 


C14B 


CMLOOP 


C18E 


CMNOY 


C170 


CMNT0 


D0EA 


CMSET 


C1BB 


CMXMOV 


0738 


COL 


30 


COLOR 


FCFB 


CaM3 


D0BF 


COMINIT 


?D011 


C0MMAND1 


C24F 


COMMPORT 


CF8C 


COMTBL 


C348 


C0PYR0M2 


FDF0 


C0UT1 


FDF6 


COUTZ 


?FD8B 


CR0UT1 


FD8E 


CROUT 


36 


CSWL 


CD2A 


CTLADR 


FCA4 


CTLDO 


CDGF 


CTLDONE 


14 


CTLNUM 


CD91 


CTLOFF 
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FE78 A1PCLP 


FE7B A1PC 


3E A2L 


41 A3H 


42 A4L 


4B ASH 


C1B3 ACDONE 


04FF ACIABUF 


C1BA ACIAINT2 


C1C2 ACIATST 


FBF8 ADV2 


?FBF4 ADVANCE 


C24D AIEAT 


C200 AINDFLSH 


C1D6 AITST2 


C01E ALTCHARSET 


C93C AM0D3 


C93B AM0D4 


CA29 AM0D7 


CA38 AM0D8 


FBe0 APPLEII 


0438 ASTAT 


C473 BADBITS 


C4A9 BADMAIN 


CGD3 BADREAD 


C4CA BADSWTCH 


2A BAS2L 


FBC1 BASCALC 


29 BASH 


E000 BASIC 


D400 BASICIN 


C317 BASICINIT 


C4BB BBITS2 


FD71 BCKSPC 


?FBDD BELLI 


FBE4 BELL2 


0214 BINL 


C329 BINPUT 


FCD0 BLAST 


?C543 BLP2 


4F BOOTDEV 


C5FS BOOTFAIL 


CAF1 BRANCH 


?FA4C BREAK 


C4D8 BSWTCH2 


C4E4 BSWTCH2A 


04 BUTMODE 


C0G1 BUTN0 


C307 C3C0UT1 


?C300 C3ENTRY 


D0DE CDONE 


D148 CDaNE2 


F9B4 CHAR2 


05FE CHARBUF 


CDCD CHK80 


FBD9 CHKBELL 


CB4E CHKRT 


C130 CHOK 


D0AB CKDIG 


FC9E CLEOLZ 


CBEE CLR0 


CBFC CLR1 


CBC7 CLR40 


C00C CLR80VID 


C00E CLRALTCHAR 


?C058 CLRAN0 


?C0BE CLRAN3 


FEE9 CLRCH 


FCBD CLRE0P1 


FC44 CLREDP2 


CD9B CLRIT 


CFBD CLRKBD2 


CC04 CLRPORT 


?CFFF CLRROM 


C481 CLRSTS 


C491 CLRS 


D11B CMD.C1 


D112 CMD.C 


D087 CMD2L00P 


D0F4 CMD2L 


D12F CMDCR 


BF CMDCUR 


D13A CMDI2 


D139 CMDK 


D091 CMDLOOP 


D12F CMDN 


D197 CMDQ 


D188 CMDR 


D1EA CMDT3 


D199 CMDT 


D12G CMDZ 


D10A CMFOUND 


C18A CMNOINT 


C1A1 CMNOVBL 


C17B CMRGHT 


C182 CMROK 


C37F CQ1 


FCCA CDLDSTART 


FCEG C0M1 


FCFB COM2 


D0BB C0MINIT1 


D000 COMMAND 


C24C COMQUT 


C200 COMSLOT 


C338 CGPYROM 


FDED COUT 


FEFG CRMON 


FC62 CR 


FC8B CRRTS 


37 CSWH 


CDB4 CTLCHAR0 


CDB8 CTLCHAR 


CD71 CTLGD 


CD80 CTLG01 


CD95 CTLOH 


CD1B CTLTAB 
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B7FB 


CURSOR 


C118 


CVNOVBL 


C124 


CVMOVED 


FDB6 


DATAOUT 


C2B6 


DEFAULT 


C2DF 


DEFCOM 


D247 


DEFIDX2 


C2BC 


DEFLOOP 


C22B 


DEVND 


C142 


DEVN02 


FF8A 


DIG 


D0C7 


DISABLE 


CBC2 


DDCLR 


FBB4 


D0C0UT1 


C9F4 


DDLIN 


CI 86 


DONE 


C566 


DQUIT 


?C60B 


DRV2ENT 


D0C5 


ENABLE 


C219 


ENTR 


C9C9 


ERR2 


?C9CB 


ERRS 


?CCE3 


ESC1 


CCE5 


ESC2 


0638 


ESCHAR 


0013 


ESCNUM 


C275 


EXIT1 


C273 


EXITX 


0S38 


EXTINT 


05F9 


EXTINT2 


C140 


FIXCH 


C80E 


FIXLC 


06B8 


FLAGS 


?D1EE 


FLUSH 


CD67 


FNDCTL 


2E 


FORMAT 


27 


GBASH 


26 


GBASL 


C321 


GBDONE 


C8C1 


GBNOC 


C346 


GDEAT 


C334 


GDNOLF 


C393 


GETALT1 


C398 


GETALT2 


C2F7 


GETBUF 


C3A6 


GETCOUT 


CCB7 


GETCUR3 


CCBF 


GETCURX 


F8AB 


GETFMT 


C9E7 


GETI1 


C816 


GETLC 


?FD6F 


GETLN1 


FFA7 


GETNUM 


C98F 


GETDP 


C2B2 


GETSTAT2 


C5B4 


GETUP 


CF38 


GKEY 


C826 


GLCBNK1 


CSEE 


GOBASICIN 


C8A7 


GDBREAK 


CB0D 


OODSP 


C9EC 


G0ERR2 


C278 


GOREMOTE 


FEB6 


GO 


?FD25 


GOTKEY 


F8CC 


GOTONE 


2C 


H2 


C4C8 


HANGX 


D47F 


HDLODP 


D479 


HDP0S2 


D4BC 


HEXTODEC 


?C057 


HIRES 


FC58 


HOME 


CDA5 


HOMECUR 


F897 


lEVEN 


0200 


INBUF 


0200 


IN 


D032 


INCMD2 


FF1S 


INDX 


C405 


INENT 


?FE8B 


INPORT 


FE8D 


INPRT 


F8D0 


INSTDSP 


CC12 


INVERT 


C000 


lOADR 


FEDE 


I0PRT1 


CB78 


lOUDSBL 


C079 


IDUENBL 


C82A 


IRQ21 


C826 


IRQ2 


C848 


IRQ5 


C85B 


IRQ6 


C88C 


IRQDN1 


C88E 


IRQDN2 


C8A4 


IRQDN5 


C87F 


IRQDONE 


FFFE 


IRQVECT 


?FA40 


IRQ 


C663 


ISMRK1 


C3C3 


JMPDEST 


C335 


JPSTAT 


C332 


JPWRITE 


FB88 


KBDWAIT 


FD1B 


KEYIN 


38 


KSWL 


CFDB 


LACR 


C08B 


LCBANK1 


C083 


LCBANK2 


Fcee 


LF 


0400 


LINE1 


2C 


LMNEM 


00 


LOC0 


FD38 


LOOKPICK 


C0S6 


LORES 


? 40 


M.40 


20 


M.CTL2 
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25 


CV 


C12B CVBUT 


FBBC 


DCX 


FEE2 DECCH 


C2C7 


DEFFF 


C2EA DEFIDX 


C6D9 


DENIB1 


C6D7 DENIBL 


D4A9 


DIAGS 


D0AD DIGLOOP 


?C983 


DISLIN 


0356 DNIBL 


FB54 


DOCTL 


C9D8 DO INST 


FD20 


DONXTCUR 


FECE DOPR0 


D484 


DV10LOOP 


D48B DV10LT 


cm 


ENTR1 


F8A1 ERR 


9B 


ESC 


CCD7 ESC0 


CCC0 


ESC3 


CD0C ESCCHAR 


CCED 


ESCRDKEY 


CCF8 ESCTAB 


C63D 


EXTENT1 


?C65C EXTENT 


F800 


F8DRG 


FBB3 F8VERSI0N 


?FA9B 


FIXSEV 


D077 FLAGIT 


F962 


FMT1 


F9AG FMT2 


?C648 


FUGIT 


F847 GBASCALC 


C8C9 


GBBRK 


F856 GBCALC 


C30D 


GBNOOVR 


C8C7 GBNOTROM 


C340 


GDNXDN 


C348 GDOK 


C37C 


GETALT 


C2FD GETBUF2 


CCA7 


GETCUR1 


CCAD GETCUR2 


CC9D 


GETCUR 


C322 GETDATA 


FC80 


GETINDX 


C98G GETINST1 


FDe7 


GETLNZ 


?FD6A GETLN 


C2AC 


GETSTAT 


CB57 GETST 


CEFA 


GETX 


?CF06 GETY 


C829 


GLCDONE 


0011 GLUIDX 


CB2S 


GDDDONE 


CB22 GODREG 


C96E 


GOERR 


06 GD0DF8 


C19B 


G0SER3 


C279 GOTERM 


C2C1 


GSTNOINT 


C2B4 GSTTST 


C4ED 


HANGY 


D4A4 HDDONE 


?FCC9 


HEADR 


D4GD HEXDEC2 


?F819 


HLINE 


F81C HLINE1 


CE1B 


HOOKITUP 


CE20 HOOKUP 


D084 


INCMD1 


CB05 INITBL 


D022 


INCMD 


D03C INCMD3 


C41A 


INITMOUSE 


FB2F INIT 


F882 


INSDS1 


F88E INSDS2 


32 


INVFLG 


CC1C INVX 


FEAB 


I0PRT2 


FE9B lOPRT 


0009 


lOUIDX 


C058 lOU 


C834 


IRQ3 


C83E IRQ4 


C85E 


IRQ7 


C870 IRQ8 


C896 


IRQDN3 


C89C IRQDN4 


C804 


IRQENT 


?03FE IRQLOC 


C882 


IRQLCOK 


CF86 IRQTBLE 


C32C 


JPINIT 


C32F JPREAD 


C010 


KBDSTRB 


C000 KBD 


?FD18 


KEYIN0 


39 KSWH 


CFDB 


LADIG 


CFDE LADONE 


2F 


LENGTH 


8A LFEED 


FE63 


LIST2 


FE5E LIST 


01 


LOCI 


CFC5 LOOKflSC 


FE20 


LT 


FE22 LT2 


08 


M.CTL 


10 M. CURSOR 
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08 


M.GOXY 


44 


MACSTAT 


2E 


MASK 


067D 


MAXXL 


C5EA 


MBBAD 


C3F5 


MEM4 


C42A 


MEMS 


C44F 


MEMC 


0S78 


MINH 


0B7D 


MINXH 


CFA3 


MIRQLP 


0001 


MMUIDX 


F8C2 


MNNDX2 


FF69 


MONZ 


C048 


MOUCLR 


C100 


MOUSEINT 


0478 


MOUTEMP 


047C 


MOUXL 


04FC 


MDUYL 


C361 


M0VEC2M 


C393 


MOVERET 


C900 


MPADDLE 


CAFF 


NBRNCH 


FA47 


NEWBRK 


FC73 


NEWCR 


FC38 


NEW0P1 


FC88 


NEWVTABZ 


D020 


NaCMD2 


?FD4B 


N0ESC1 


C5AA 


NOPATRN 


C36A 


N0T1 


CC53 


NOTINV 


FB94 


NOWAIT 


FCBA 


NXTA1 


FFA2 


NXTBS2 


?F85F 


NXTCOL 


C9BD 


NXTOP 


067A 


0LDCUR2 


FEFE 


OPTBL 


?FE9B 


OUTPORT 


C1A8 


P1READ 


C1CE 


P1STRD 


C213 


P2READ 


CF71 


PASCALC 


C850 


PASSKIP1 


F954 


PCADJ2 


CAB4 


PCINC2 


C880 


PCNV 


CC3D 


PICK1 


CC1D 


PICKY 


F800 


PLOT 


FD92 


PRA1 


F92A 


PRADR4 


F948 


PRBLNK 


?FF2D 


PRERR 


F8F5 


PRMN1 


F8DB 


PRNTBL 


F940 


PRNTYX 



01 


M. MOUSE 


C58E 


MAKTBL 


0SF8 


MAXH 


?07FD 


MAXYH 


C3D0 


MEM1 


C3FA 


MEMB 


C42C 


MEM9 


C4S6 


MEMD 


C9C7 


MINIERR 


047D 


MINXL 


CFBA 


MIRQSTD 


F9C0 


MNEML 


F8C9 


MNNDX3 


FF65 


MON 


?C0S8 


MOUDSBL 


CD9F 


MOUSOFF 


C066 


M0UX1 


C067 


M0UY1 


C972 


M0V1 


CF9A 


MOVE IRQ 


C367 


MOVESTRT 


D179 


MSLOOP 


0300 


NBUF1 


FC99 


NEWC1 


CCCC 


NEWESC 


FC3B 


NEWOPS 


C371 


NEXTA1 


D01F 


NOCMD 


FD4A 


NaESC2 


C371 


NOREAD 


C1B2 


NOTACIA 


?CC68 


N0TINV1 


C82A 


NTBL 


FCB4 


NXTA4 


C9F8 


NXTCH 


077B 


NXTCUR 


FAB9 


OLDBRK 


?FFB9 


OLDRST 


0B7B 


OURCH 


FE97 


OUTPRT 


C1AF 


P1READ2 


C1CC 


P1STWR 


0217 


P2STATUS 


?CF7F 


PASCLC2 


C23D 


PBFULL 


F9B6 


PCADJ3 


CAB6 


PCINC3 


CF19 


PCTL 


CC33 


PICK2 


9B 


PICK 


F80E 


PL0T1 


F910 


PRADR1 


F930 


PRADRB 


FDDA 


PRBYTE 


CEF7 


PRET 


F8F9 


PRMN2 


C14A 


PRNT 


33 


PROMPT 
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80 


M.PASCAL 


04 


M.VMODE 


D202 


MASK1 


D20D 


MASK2 


04F8 


MAXL 


077D 


MAXXH 


706FD 


MAXYL 


C400 


MBASIC 


C3D8 


MEM2 


C3F3 


MEMS 


C40B 


MEM6 


C412 


MEM7 


C431 


MEMA 


C440 


MEMB 


C472 


MEMERROR 


C46C 


MEMF 


FE6C 


MINI 


0478 


MINL 


?0BFD 


MINYH 


704FD 


MINYL 


7C0B2 


MIXCLR 


C0B3 


MIXSET 


FA00 


MNEMR 


F8BE 


MNNDX1 


FDAD 


M0D8CHK 


31 


MODE 


067C 


MDUARM 


C063 


MDUBUT 


?C0B9 


MQUENBL 


07FC 


MDUMDDE 


CD99 


MOUSON 


077C 


MOUSTAT 


0B7C 


MOUXH 


C01B 


MOUXINT 


0BFC 


MOUYH 


C017 


MOUYINT 


20 


MOVARM 


C34E 


MOVEAUX 


C367 


MOVELOOP 


FE2C 


MOVE 


C970 


MOVINST 


02 


MOVMODE 


07F8 


MSLOT 


D177 


MSWAIT 


FBB0 


NEWADV1 


FBA0 


NEWADV 


FC90 


NENCLEOLZ 


FC8D 


NEWCLREOL 


C803 


NEUIIRQ 


?FA81 


NENMON 


CADI 


NEWPOL 


Fcse 


NEWVTAB 


03FB 


NMI 


CA3B 


NNBL 


C469 


NDERROR 


C2B4 


NOESC 


FD44 


NOESCAPE 


FAA3 


NOFIX 


D166 


NDSHIFT 


C4Ee 


N0STAT2 


FDBF 


NOTCRI 


FD4D 


NOTCR 


CC6B 


N0TINV2 


FEA7 


NOTPRT0 


047E 


NUMBER 


0016 


NUMOPS 


FF98 


NXTBAS 


FF90 


NXTBIT 


FD7S 


NXTCHAR 


FFAD 


NXTCHR 


FF73 


NXTITM 


CA06 


NXTMN 


047B 


DLDCH 


0679 


OLDCUR 


D07F 


ONELETTER 


FEC2 


DPRT0 


0BFB 


OURCV 


C407 


OUTENT 


C1DB 


P1ERR 


C19E 


P1INIT 


C9AD 


P1SKIP 


C1BB 


P1STATUS 


C1B4 


P1NRITE 


C211 


P2IMIT 


C215 


P2WRITE 


C064 


PADDL0 


CC0B 


PASINVERT 


CF3B 


PASREAD 


C235 


PBOK 


F9B3 


PCADJ 


F9BC 


PCADJ4 


3B 


PCH 


3A 


PCL 


CBF8 


PCNVRST 


C918 


PDOK 


C90D 


PDON 


CC3F 


PICKS 


CC4A 


PICK4 


CF41 


PINIT 


CEBC 


PIORDY 


CEC0 


PNOTRDY 


C402 


PNULL 


F914 


PRADR2 


F926 


PRADR3 


F94A 


PRBL2 


7F94C 


PRBL3 


?FB1E 


PREAD 


FB2B 


PREAD2 


?FDE3 


PRHEX 


FDEB 


PRHEXZ 


CI 66 


PRNOW 


7F941 


PRNTAX 


F8D4 


PRNTOP 


7F944 


PRNTX 


FD96 


PRYX2 


CF66 


PS1 
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CF54 


PSETUP2 


CFS1 


PSETUP 


CF30 


PSETX 


CEB1 


PSTATUS 


CEBE 


PSTERR 


?C070 


PTRIG 


C228 


PUTBUF 


?D43B 


PUTINBUF 


CE3B 


PVMODE 


04B8 


PWDTH 


CEDD 


PWR1 


FAFD 


PWRCON 


03F4 


PWREDUP 


CEF4 


PWRET 


CEC2 


PWRITE 


CEF1 


PWRITERET 


FB12 


PWRUP2 


FAA6 


PUIRUP 


D4FS 


QTBL 


CE4B 


QUIT 


CE4't 


QX 


D241 


R.GETALT1 


D246 


R.GETALT2 


D22A 


R.GETALT 


?C060 


RD40SW 


C018 


RD80CDL 


C01F 


RD80VID 


C63F 


RDADR 


CBie 


RDALTZP 


C6A8 


RDAT0 


C6AA 


RDAT1 


C6BA 


RDAT2 


C6BC 


RDAT3 


C6CB 


RDAT4 


C6A6 


RDATA 


C003 


RDCARDRAM 


?FD35 


RDCHAR 


C642 


RDDHDR 


C6B6 


RDHD0 


C65E 


RDHD1 


C667 


RDHD2 


C671 


RDHD3 


?C01D 


RDHIRES 


FD0C 


RDKEY 


CB11 


RDLCBNK2 


C012 


RDLCRAM 


C002 


RDMAINRAM 


?C01B 


RDM IX 


C01C 


RDPAeE2 


C013 


RDRAMRD 


C014 


RDRAMWRT 


C68B 


RDSEC1 


C687 


RDSEC2 


C68F 


RDSEC3 


CG83 


RDSECT 


FAE4 


RDSP1 


C01A 


RDTEXT 


C019 


RDVBLBAR 


?FEFD 


READ 


FAD7 


REGDSP 


FEBF 


REGZ 


C961 


REL1 


?F938 


RELADR 


C9BB 


REL 


C96B 


REL2 


FABD 


RESET. X 


C354 


RESETLC 


FA62 


RESET 


FF3F 


RESTORE 


?FF44 


RESTR1 


C641 


RETRY1 


C6B7 


RETRY 


FflDfl 


RGDSP1 


FB02 


RGDSP2 


C8G6 


RMESS 


2D 


RMNEM 


4F 


RNDH 


4E 


RNDL 


C028 


ROMBANK 


C081 


ROMIN 


C37B 


RQMOK 


0478 


ROMSTATE 


C8B3 


RSWTBL 


CF94 


RTBL 


F80C 


RTMASK 


F87F 


RTMSKZ 


2D 


RTNH 


CAD9 


RTNJMP2 


?CAD5 


RTNJMP 


2C 


RTNL 


F831 


RTS1 


FBEF 


RTS2B 


FB2E 


RTS2D 


F961 


RTS2 


FBFC 


RTS3 


FCC8 


RTS4B 


?FC34 


RTS4 


?FDC5 


RTS4C 


FE17 


RTSS 


?FCB3 


RTS6 


?FF4C 


SAV1 


FF4A 


SAVE 


BFFB 


SCNTL 


BFFA 


SCOMD 


CEB8 


SCR1 


CEBE 


SCR2 


CE66 


SCR3 


CE79 


SCR4 


CE82 


SCR5 


CE8B 


SCR6 


CE96 


SCR7 


?CE8D 


SCR8 


CEAD 


SCR9 


05B8 


SCREEN 


CBB9 


SCRL3 


CB9B 


SCRLEVEN 


CBA2 


SCRLFT 


CB8D 


SCRLIN 


CBB0 


SCRLDDD 


F879 


SCRN2 


?F871 


SCRN 


CE80 


SCRN48 


CEB3 


SCRN84 


CB30 


SCROLLDN 


?FC70 


SCROLL 


CB38 


SCRDLLIT 


CB35 


SCROLLUP 


BFFB 


SDATA 


C61F 


SEEKZERD 


C27F 


SERIN 


C11C 


SERISOUT 


03B8 


SERMODE 


C24F 


SER0UT3 


C18A 


SEROUT 


C18F 


SERDUT2 


C2BB 


SERDUT4 


C117 


SERPDRT 


C189 


SERRTS 


C100 


SERSLOT 


C144 


SERVID 


CDC0 


SET40 


C001 


SET80COL 


C00D 


SET80VID 


CDBE 


SET80 


C00F 


SETALTCHAR 


C009 


SETALTZP 


?C0B9 


SETAN0 


?C0BB 


SETAN1 


?C05D 


SETAN2 


C05F 


SETAN3 


C182 


SETCH 


?F864 


SETCOL 


FEEC 


SETCUR 


FEEE 


SETCUR1 


CB67 


SETDBAS 


?FB40 


SETGR 


CE23 


SETHOOKS 


FE86 


SETIFLG 


FE80 


SETINV 


?C4B2 


SETIQU 


CDA1 


SETIT 


FE89 


SETKBD 


FE1D 


SETMDZ 


FE18 


SETMODE 


FE84 


SETNORM 


?FAA9 


SETPG3 


FAAB 


SETPLP 


?FB6F 


SETPWRC 


C3G0 


SETROM 


CB88 


SETSRC 


C008 


SETSTDZP 


D1A0 


SETTERM 


?FB39 


SETTXT 


CB83 


SETUP2 


C21C 


SETUP 


FE93 


SETVID 


C82A 


SETV 


FB4B 


SETWND 


CE1A 


SETX 


CBC1 


SEV1 


CC4C 


SHOWCUR 


C5C4 


SHOWINST 


C28E 


SIDATA 


C4BC 


SILOOP 


C463 


SINOCH 


C280 


SINDKBD 


C2AC 


SINDMOD 


C20B 


SIN 


CBA8 


SKPLFT 


CBB4 


SKPRT 


2B 


SLOTZ 


C1 


SLTDMY 


C86C 


SMESS 


C4eA 


SMINVALID 


C2AA 


SODQNE 


03F2 


SOFTEV 


C28D 


SOOK 


C2BE 


SORDY 


C2AB 


SORTS 


C286 


SOTST 


C207 


SDUT 


0030 


SPKR 


49 


SPNT 


BFF9 


SSTAT 


CF29 


STARTXY 


48 


STATUS 


D1B9 


STCLR 


CA43 


STEP 


FE71 


STEPZ 


FB65 


STITLE 


FBF0 


STORADV 


C3B8 


STORCH 


C3DB 


STQRE1 


C3EE 


ST0RE2 


?C3F2 


STORES 


C3C1 


STORE 


C3F9 


STORES 


?FE0B 


STOR 


?C3F7 


ST0RE4 


C3B3 


STORY 


D1F4 


STRTS 


D1C0 


STSET 


D1C9 


STWASDK 


FFE3 


SUBTBL 


C56B 


SUC2 


C87S 


SUCCESS 


C22F 


SUDODEF 


C24B 


SUDONE 


C232 


SUNODEF 


C240 


SUOUT 


?C7C7 


SWATALK 


C7AF 


SWAUX 
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C79D 


SWBASICIN 


C4EF 


SNCHTST 


C7A9 


SWCMD 


0806 


SWCMD3 


C537 


SWERR 


C7DF 


SWGETB 


C7D3 


SWGETST 


C78E 


SWIRQ2 


C7BB 


SWMINT 


?C797 


SWPCNV 


C7D9 


SWREAD 


?C788 


SWRESET 


C788 


SWRESET2 


C780 


SWRTI 


?C780 


SWRTI2 


C784 


SWRTS 


C784 


SWRTS2 


C787 


SWRTSOP 


C7CD 


SWSER3 


C797 


SWSTHK2 


C7F1 


SWSTHK3 


C7A3 


SWSTTM 


C7F1 


SWSTTM3 


C82F 


SWTBL0 


C841 


SWTBL1 


C4F1 


SWTST1 


C4F3 


SNTST2 


C4FE 


SWTST3 


CB08 


SWTST4 


C51A 


SWTST5 


C521 


SWTSTG 


C533 


SWTST7 


C7B5 


SWXFER 


?C7EB 


SWXFGO 


C7EB 


SNXFG02 


C7E5 


SWZZNM 


C79D 


SWZZQT2 


C7F6 


SWZZQT3 


C15E 


TAB 


?FB5B 


TABV 


C592 


TBLLDOP 


CSA0 


TBLLO0P2 


0578 


TEMPA 


06F8 


TEMP 


a4F8 


TEMPI 


05F8 


TEMPY 


C27C 


TERM1 


DF 


TERMCUR 


C25E 


TESTKBD 


0800 


THBUF 


?FB09 


TITLE 


C15C 


TOQFAR 


FFBE 


TDSUB 


FE6F 


TRACE 


06FF 


TRKEY 


067F 


TRSER 


C3C6 


TSTMEM 


D4DD 


TSTMEM2 


D4B2 


TSTZPG 


05FF 


TWKEY 


057F 


TWSER 


C05B 


TXTCLR 


C054 


TXTPAGE1 


C055 


TXTPAGE2 


C051 


TXTSET 


05FA 


TYPHED 


00 


UCSPAOE 


CC93 


UD2 


CC70 


UPDATE 


C399 


UPSHIFT0 


C39B 


UPSHIFT 


FC1A 


UP 


FECA 


USR 


03F8 


USRADR 


2D 


V2 


C07a 


VBLCLR 


C019 


VBLINT 


BC 


VBLMODE 


FE36 


VERIFY 


067B 


VFACTV 


FE58 


VFYOK 


CE31 


VIDMODE 


FBFD 


VIDOUT 


FC04 


VIDDUT1 


FB78 


VIDUA IT 


F82G 


VLINEZ 


F828 


VLINE 


04FB 


VMODE 


FC22 


VTAB 


FB59 


VTAB23 


FC30 


VTAB40 


FC24 


VTABZ 


FCA9 


WAIT2 


FCAA 


WAIT3 


FCA8 


WAIT 


FEEB 


WDTHCH 


CDD5 


U1IN0 


CDE0 


WIN1 


CDED 


WIN2 


CDF2 


WIN3 


CE02 


WIN4 


CDD2 


UIN40 


CE18 


WIN5 


CDD4 


WIN80 


23 


WNDBTM 


20 


WNDLFT 


CE0A 


WNDREST 


22 


WNDTOP 


21 


WNDWDTH 


C005 


WRCARDRAM 


?FECD 


WRITE 


C004 


WRMAINRAM 


CD8D 


X. CUR. OFF 


CD89 


X. CUR. ON 


CDB7 


X.SI 


CDB0 


X.SO 


C3A5 


X. UPSHIFT 


FDB3 


XAM 


FDA3 


XAM8 


FDC6 


XAMPM 


FEB0 


XBASIC 


C8E6 


XBITKBD 


C8F9 


XBKB1 


C8FB 


XBKB2 


CAA6 


XBRK 


06FB 


XCODRD 


C3C0 


XFERAZP 


C3AA 


XFERC2M 


C3B0 


XFERZP 


C397 


XFER 


CAC9 


XJMPAT 


CAE3 


XJMPATX 


CAC8 


XJMP 


CAC0 


XJSR 


CAEE 


XJXNOC 


C5CF 


XMBASIC 


C5DC 


XMBOUT 


C48E 


XMCDONE 


C4BD 


XMCLAMP 


C482 


XMCLEAR 


C1AD 


XMDONE 


C471 


XMH2 


C46F 


XMHLOOP 


C46B 


XMHOME 


C4B6 


XMRD2 


C493 


XMREAD 


D441 


XMREAD2 


C4DC 


XMTSTINT 


C8D4 


XNDKEY 


C2D5 


XNOSBUF 


93 


XOFF 


91 


XDN 


CA98 


XQ1 


CA9A 


XQ2 


CA64 


XQINIT 


CA50 


XQNOBT0 


CA90 


XQNTBRA 


3C 


XQT 


CA4A 


XQWAIT 


C4AA 


XRBUT 


C4B1 


XRBUT2 


D4S0 


XRBUT3 


D457 


XRBUT4 


C2F4 


XRDDONE 


C8DS 


XRDKBD 


C2E9 


XRDNOBUF 


C2C3 


XRDSER 


C2C9 


XRDSER2 


D0DB 


XREADY 


46 


XREG 


C8CC 


XRKBD1 


C421 


XRLOOP 


CAAC 


XRTI 


CAB0 


XRTS 


C43B 


XSETMDU 


C450 


XSOFF 


?C100 


XXX 


0008 


YHI 


47 


YREG 


34 


YSAV 


35 


YSAV1 


FFC7 


ZMODE 


D4Be 


ZP1 


D4BF 


ZP2 


D4D2 


ZP3 


D4D7 


ZPERROR 


D4E9 


ZZLOOP 


D4E0 


ZZNM 


CE4D 


ZZQUIT 














** SUCCESSFUL ASSEMBLY := 


NO ERRORS 










** ASSEMBLER CREATED ON 3i 


l-APR-85 22:46 








•* TOTAL LINES ASSEMBLED 


5727 










** FREE SPACE PAGE 


COUNT 


38 
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CE 



FILE *01 ->PC 



LUDE FILE #02 =>PC. EQUATES 
LUDE FILE *03 = >PC . BOOTSPftCE 
LUDE FILE #04 ->PC.BDOT 
LUDE FILE #05 =>PC. PACKET 
LUDE FILE #06 =>PC.CREAD 



0000 



0000 



0000 



#07 


= >PC 


MAIN 








0001 


1 


lie 




equ 


1 


0001 


2 


ROM 




equ 


1 


C000 


3 


TheOr 


g 


equ 


$C0 


1000 


4 


vers ion 


equ 


$10 




S 






Ist 


nou 




6 


« 








0001 


7 
9 






If eq 

else 


lie 



;Whioh machine? 
;RAM or ROM based 
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01 PC 



Protocol Converter Code for A//c 



04-JUN-85 



PAGE 2 



0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 



0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 



0001 



1 1 




fin 
















12 


t 


















13 




X6502 














14 * 


















15 • 


















16 * 


















17 * 


















18 « 


















19 


PPPP 


RRRR 


ODD 


TTTTT 


DOO 


ccc 


000 


L 




20 


P P 


R R 





T 


D 


C C 





L 




21 


PPPP 


RRRR 


D 


T 





C 





L 




22 


P 


R R 


D 


T 


a 


C C 





L 




23 


P 


R R 


ODD 


T 


000 


CCC 


000 


LLLLL 




24 




















25 


ccc 


ODD 


N N 


V V 


EEEEE 


RRRR 


TTTTT 


EEEEE 


RRRR 


2G 


c c 


D D 


NN N 


V V 


E 


R R 


T 


E 


R R 


27 


c 


a 


N N N 


V V 


EEEE 


RRRR 


T 


EEEE 


RRRR 


28 


c c 





N NN 


V V 


E 


R R 


T 


E 


R R 


29 


ccc 


DOQ 


N N 


V 


EEEEE 


R R 


T 


EEEEE 


R R 


30 





















0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 
0000: 



32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 



UniDisk 3.5 Driver Firmware Version 1.0 

Hrltten by Michael Asking x6243 May 15, 1985 

Copyright Apple Computer, Inc. 1985 
All Rights Reserved 



MSB 



ON 
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1 PC 


0000: 


0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 




0000 





Protocol Converter Code for A//c 



04-JUN-85 
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0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



0000 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
S4 
55 
56 
57 
58 
59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 ■ 

77 ■ 

78 < 

79 ' 

80 ' 

81 ' 

82 ' 

83 ' 

84 * 

85 ' 

86 < 

87 « 

88 ' 

89 « 

90 • 

91 • 

92 « 

93 * 

94 * 

95 • 

96 • 

97 * 

98 * 

99 * 

100 • 

101 * 



«««««#«««««««« 



►*••••»«••««.».,»«,,,«,,,,,,,,,, 



*##*###### 



Mo 



diflcatlon History: 



Rel Date 



Nho Action 



18 Dec 84 
10 Jan 85 



MSA 
MSA 



16 Jan 85 MSA 



18 


Jan 


85 


MSA 


22 


Jan 


as 


MSA 


23 


Jan 


85 


MSA 


23 


Jan 


85 


MSA 


25 


Jan 


85 


MSA 


30 


Jan 


85 


MSA 


07 


Feb 


85 


MSA 


08 


Feb 


85 


MSA 


22 


Feb 


85 


MSA 



06 Mar 85 MSA 



16 


Mar 


85 


MSA 


17 


Mar 


85 


MSA 


20 


Mar 


85 


MSA 



24 


Mar 


85 


MSA 


25 


Mar 


85 


MSA 


18 


Apr 


85 


MSA 



22 Apr 85 
IS May 85 



MSA 
MSA 



RELEASE VERSION 0.02 CSony) 
Added //c support: 

General conditional assembly overhead 
Added retries and timeouts 
MSlot handled correctly 
Finished Boot code 

Altered ProDOS errors - add $27 catchall 
Remove call to WAIT in monitor 
Add Boot failure messages 
Add IWM reconfigure for //c version 
Move Comm routines to $C800 ($C900) 
Fixed zero page preservation 
RELEASE VERSION 0.03 (Apple) 
Swap slot dep read and boot code (//o) 
Add other //c differences... 
Add auxtype byte 

Fix comm error on receive packet 
Fix checksum to include MSBs of overhead 
Add CDUT support on boot fail 
RELEASE VERSION 1.00A (alpha) 
Add bytecount in X,Y on PC calls 
Change hard reset time to 1 ms (was 83) 
Crunched code by adding ClrPhases 
Add zeroing of third block byte (ProDOS) 
Fixed slot 7 goof (stack screw up) 
No clear phases on retries 
Hard reset time to 40 ms 

Pass #parms instead of unit* and no chk 
Inlt code (all reset vs. comm reset) 
Add 2 bytes to pass a full 9 byte cmd 
Fix bytecount on retries 
Boot block must be $800'=$01, $801<>$00 
Remove WRREQ while waiting for motor TO 
Remove glitch on /ENBL2 in AssignID 
Add interrupt on/off/poll support 
Reset pulse to 80 ms 

//c delay of 100 ms on initial AssignID 
ID bytes changed 

Retransmit implemented (RecPack) 
Add send data packet retries (5) 
Rearrange PC stack adjust 
Add //c Appletalk vector 

Add //c millisecond wait each call ' 
RELEASE VERSION 1.00B (beta) (//e) > 
Clear decimal mode i 

Eight bytes are returned on stat unit#0 < 
Stat Unit*0 scode<>0 is rejected ' 

X and Y set to 0008 on status unit#0 ' 
Enable interrupts done correctly < 

Add unit*0 parameter count checkinq • 
RELEASE VERSION 1.01B « 

RELEASE VERSION 1.0 . 
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B1 PC 

0000: 
0000: 



Protocol Converter Code for A//c 04-JUN-8S PAGE 4 

102 * * 

104 * 

105 * 

106 Include pc.equates 
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02 PC. EQUATES Equates 04-JUN-85 



PAGE B 



0000: 




2 • 




0000: 


00BF 


3 PDIDByte equ 


$BF 


0000: 


0000 


4 PCID2 equ 

5 * 


$0 


0000: 






0000: 




e ..♦......,.,..,...,.,,,, 


0000: 




7 * 




0000: 




8 * Zero Paqe 


( temps) 


0000: 




9 « 


0000: 




10 ..»..#.,,,,,,,,,,,,,,,,, 


0000: 




11 * 




0000: 




12 dsec 


t 


0000: 


0040 


13 zeropaqe equ 


$0040 


0040: 


0040 


14 orq 


zeropage 


0040: 




15 • 


0040:00 




16 checksum dfb 





0041 :00 




17 topblts dfb 





0042:00 




18 CMDCode dfb 





0043: 


0043 


19 CMDPCount equ 

20 CMDUnlt dfb 


# 


0043:00 







0044: 


0044 


21 CMDBuffer equ 

22 CMDBufferl dfb 


* 


0044:00 







0045:00 




23 CMDBufferh dfb 





0046; 


0046 


24 CMDSCode equ 


« 


0046: 


0046 


25 CflDBlock equ 

26 CMDBlockl dfb 


* 


0046:00 







0047:00 




27 CMDBlockh dfb 





0048:00 




28 CMDBlocks dfb 





0049:00 




29 CMDSparel dfb 





004A:00 




30 CMDSpare2 dfb 





004B: 


004B 


31 rcvbuf equ 

32 grp7ctr dfb 


# 


004B:00 







004C:00 




33 oddbytes dfb 





004D: 


004D 


34 statbyte equ 


* 


004D: 


004D 


35 bytecount equ 


# 


004D: 


004D 


36 bytecountl equ 


« 


004D: 


004D 


37 next equ 

38 nextl dfb 


* 


004D:00 







004E: 


004E 


39 AuxType equ 


* 


B04E: 


004E 


40 bytecounth equ 


» 


004E:00 




41 iiext2 dfb 





004F: 


004F 


42 RPacketType equ 


« 


004F:00 




43 next3 dfb 





0050: 


0050 


44 DevlcelD equ 


« 


0050:00 




45 next4 dfb 





0051: 


0051 


46 HostID equ 

47 iiext5 dfb 


« 


0051:00 







0052: 


0052 


48 pointer equ 

49 next6 dfb 


♦ 


0052:00 







0053:00 




50 next7 dfb 





0054:00 00 




51 buffer dw 





0056: 


0056 


52 auxptr equ 

53 buffer2 dw 


* 


0056:00 00 







0058:00 




54 slot dfb 





0059: 


0059 


55 temp equ 

56 tbodd dfb 


* 


0059:00 







005A:00 




57 Unit dfb 





005B:00 




58 WPacketType dfb 





005C: 




59 • 





;ProDOS attributes byte 
;Thi5 means a Liron card 



;ProDOS parameter passing area 



;Current target unit 
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02 PC. EQUATES 



Equates 



04-JUN-8S 



PAGE e 



005C 
005C 
005C 
B05C 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 





60 


* 






001C 


61 
62 
63 
64 
65 


ZPSize 


equ 
dend 


*-zeropage 


CFFF 


66 


ClearlORQMs eqy 


$CFFF 


0100 


67 
68 
69 


stack 


equ 


$100 




70 


************************* 




71 






« 




72 


* Screenhole 


Storage * 




73 






* 




74 






75 










76 


* The screenho 


e layout is 




77 










78 






//e 




79 
80 










* ProFlag 


$478+n 




81 


* Retry 




$4F8+n 




82 


* SHTemp 




$S78+r 




83 


* SHTempX 


$5F8+n 




84 


• SHTempY 


$678+n 




85 


• Powerl 




$6F8tn 




86 


* Powers 




$778tn 




87 


* NumDevices 


$7F8+n 




88 


* SvBcL 




$6F8 




89 


• SvBcH 




$778 




90 








0001 


91 




do 


lie 


0473 


92 
93 
95 
96 


scholes 

# 


equ 

else 

fin 


$473 


0473 


97 


ProFlag 


equ 


scholes 


04F3 


98 


Retry 


equ 


soholes+$8 


0573 


99 


SHTempI 


equ 


scholes+$ 1 


0573 


100 


Retry2 


equ 


SHTempI 


05F3 


101 


SHTempX 


equ 


5choles + $ 1 


0673 


102 


SHTempY 


equ 


schole5+$2 


0001 


103 
107 




if eq 
else 


I Ic 


0SF9 


108 


NumDevices equ 


$6F9 




109 




fin 






110 


# 






06F8 


1 1 1 


SvBcL 


equ 


$6F8 


0778 


112 
113 


SvBcH 
* 


equ 


$778 


0025 


114 


cv 


equ 


$25 


0024 


115 


ch 


equ 


$24 


FC22 


116 


vtab 


equ 


$FC22 


FDED 


117 


cout 


equ 


$FDED 


07DB 


118 


boot scr n 


equ 


$7DB 


07F8 


119 


MSlot 


equ 


$7F8 


FE93 


120 


setvld 


equ 


$FE93 


FE83 


121 


setkbd 


equ 


$FE89 



//c 

$478 
$4F8 
$578 
»5F8 
$678 



$6FE 
$6F8 
$778 



jUse the slot sholes for temps 



jActually in slot 6 
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02 PC. EQUATES 



000 



000 
000 



000 



000 
000 



000 



000 
000 



30 



0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 



FABA 
E000 
0000 
0001 

C797 
C784 



00A5 
00FF 

0000 
0080 

0032 
000A 
001E 
0009 
00C3 
00C8 
0080 
0081 
0082 

0007 

0000 
0001 
0002 
0003 

C080 

C080 
C081 
C082 
C083 
C084 
C085 
C086 
C087 
C088 
C089 
C08A 
C08B 
C08C 
C08D 
C08E 
C08F 



Equates 

122 AutoScan 

123 Basic 

124 loc0 

125 loc1 

126 * 

127 SWPROTO 

128 SWRTS2 

129 * 

130 • 
131 
132 
133 
134 
135 



equ 
equ 
equ 
equ 

equ 
equ 



$FABA 
$E000 
$0 
$1 

$C797 
$C784 



04-JUN-8S 



;Boot parms 



PAGE 7 



;//c bank switch to $C800 
;RTS to bank 1 



* . 

* General Equates * 

* # 



equ 
equ 



136 • 

137 PBBValue 

138 PBCValue 

139 * 

140 PowerReset equ 

141 CommReset equ 

142 * 

143 bsytol equ 

144 bsyto2 equ 



145 statmto 



qu 



146 cmdlength equ 

147 packetbeg equ 

148 packetend 

149 cmdmark 

150 statmark 

151 datamark 

152 * 

153 Iwmmode 

154 • 

155 SCDevlceStat eq 

156 SCGetDCB equ 

157 SCRetNLStat equ 

158 SCGetDevInfo eq 

159 • 

160 Iwm 

161 * 

162 reqc 1 r 

163 reqset 

164 calclr 

165 calset 

166 ca2clr 

167 ca2set 

168 Istrbclr 

169 Istrbset 

1 70 monc 1 r 

171 monset 

172 enablel 

173 enable2 

174 16clr 

175 leset 

176 17clr 

177 175et 

178 * 

179 » 



equ 
equ 
equ 
equ 

equ 



equ 

equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



$A5 
$FF 

$00 
«80 

50 

10 

30 

9 

$C3 

$C8 

$80 

$81 

$82 

$07 



1 

2 

u 3 

$C080 

lwm + 
1 wm+ 1 
Iwm + 2 
Iwm + 3 
i wm + 4 
Iwm + 5 
1 wm + 6 
Iwm + 7 
Iwm + 8 
iwm + 9 
lwm+ 1 
iwm+ 1 1 
lwm+ 12 
Iwmt 13 
iwm+ 1 4 
lwm+ IS 



iPowerup Byte Base Value 
;Powerup Byte Complement Value 



;(.55 ms) T/0 on /BSY before send 
;C.12 ms) T/0 on /BSY after send 
;30 bytes stat mark timeout 
;Command packet length 
;Mark at beginning of packet 
;End of packet mark 
;Command packet identifier 
;Status Packet identifier 
;Data Packet identifier 

;No timer, asynch, latch 

;Get Device Specific Status 
;Get Dev Ctrl Block (modebits) 
[Return Newline Status 
;Get Device Info Block 
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02 PC. EQUATES 



Equa t es 



Bt-JUN-SS 
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0000 



0000 



0000 
0000 
0000 
0000 
0000 
0000 



0000 



0000 



0000 



0000 



0000 



0002 
0004 



0020 
0040 



0001 
0002 
0003 
0004 
0005 



0040 

0001 
0004 
0006 
001 1 
001F 
0021 
0022 
0027 
0028 
002B 
002D 
002F 
00S8 
0067 

0010 

0BE8 
000S 



M 



180 
181 
182 
183 
184 



* Er ror codes 



noanswer 
nomar k 
wasrese t 



equ 
equ 
equ 
2qu 
2qu 



185 bytecmp 

186 csumerr 

187 nopackend equ 

188 bushog equ 

189 * 

190 * Command Codes 

191 • 

192 StatusCmd equ 

193 ReadCmd equ 

194 WrlteCmd equ 

195 FormatCmd equ 

196 ControlCmd equ 

197 InltCmd equ 

198 * 

199 * 

200 Soft equ 

201 * 

202 BadCmd 

203 BadPCnt 

204 BusErr 

205 BadUnit 

206 Noint 

207 BadCtl 

208 BadCtlParm equ 

209 lOError 

210 NoDrlve 

211 NriteProt 

212 BadBlock 

213 Offline 

214 LastOne 

215 SoftError 

216 * 

217 SVMaskI 

218 * 

219 RC1 

220 RC2 



1 

2 

4 

8 

$10 

$20 

$40 



equ 



equ 
equ 



221 
222 
107 

108 



NEXT OBJECT FILE NAME IS CPC . 



C500 
C500 
CS00 
C500 
CS00 



C500 



109 
110 
116 
117 
1 18 



$00 
$01 
$02 
$03 
$04 
$05 



% 01000000 



;The soft error bit in statbyte 



equ 


$01 


equ 


$04 


equ 


$06 


equ 


$11 


equ 


$1F 


equ 


$21 


equ 


$22 


equ 


$27 


equ 


$28 


equ 


$2B 


equ 


$2D 


equ 


$2F 


equ 


Sof t+NoDrlve 


equ 


Sof t+IOError 



$10 



3000 

5 



IIo"ROM 
$C500 



;Send a command pack 3000 times (3 sec) 
;Data Packs Csent/rcd) get tried only 5 
t Imes 



; If //c RDM start is $0500 



org 

else 

fin 

include pc.bootspace 
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03 PCBOOTSPACE Boot Space 



04-JUN-85 
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CS00 
C500 
C500 
C500 
CS00 



2 

3 

4 

937 

938 



'Ist off 



Ifeq 
fin 



IIc"ROM 



;If NOT the //c ROM version, do this 



irmware ustirig 



03 PC.BOQTSPACE 



Slot 5 Boot Code Space 



04-JUN-85 
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C500 






C500 






CB00 






C500 






C500 






C500 






C500 






C500 






C500 






C500 






C500 






CB00 






C500 






C500 






C500 






C500 






CE00 


A2 


20 


C502 


A2 


00 


C504 


A2 


03 


CB06 






CBae 


C9 


00 


CB08 






C508 


B0 


17 


C50A 






CB0A 






CB0A 






CB0A 






CB0A 






CB0A 






CB0A 






CB0A 






C50A 






CB0A 


38 




C50B 


B0 


01 


CS0D 






CB0D 






CB0D 






C50D 






CB0D 


18 




C50E 


A2 


0B 


CB10 


7E 


73 04 


CB13 


18 




CB14 






CB14 






CB14 






CB14 






CB14 


A2 


CB 


CB1G 


8E 


F8 07 


CB19 


A2 


0B 


CB1B 


AD 


FF CF 


CB1E 






CB1E: 






CB1E 


4C 


97 C7 


CB21: 






CB21 : 


A2 


0B 


CB23: 






CB23: 






CB23: 







0001 

0060 



CB00 



0001 
CB21 



CB0A 



CB0E 



CB0D 



CB14 



0001 



CS21 



940 
941 
942 
943 
94B 
946 
947 
948 
949 
9B0 
9B1 
9B2 
9B3 
954 
95B 
956 
957 
9B8 
9B9 
960 
961 
962 
963 
964 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
1189 
1190 



TheOff 



*l5t on 



do 
equ 
else 
fin 



lie 
$60 



jOn //c IWM m slot 6 



* Here beginneth that code which resideth in the boot space 

* at the time the card resteth in slot the fifth. 
* 

C500org equ * 

* Auto Boot signature bytes 

* This is also the boot Cauto i PR*B) entry point. 



iFlag that this is a boot 



* Here is the ProDOS normal entry point 

« 

ProDQSEntry equ * 

# 

* Set up so that ProFLAG will have the top bit set 

sec 

bcs *+3 iSkip the clear 

« 

* This is the MLIxface entry point 

;Qnly use this label in //c version 



Idx 


#$20 


Idx 


*$00 


Idx 


#$03 


cmp 


#0 


do 


IIc'ROM 


bcs 


BootC 


else 




fin 





MLIEntry equ * 
c Ic 
Idx #$0B 
ror ProFLAG, X 
c 1 c 



;ProFLAG[7]"1 if ProDOS, =0 if MLI 
;This is not a boot entry 



* Now save mslot and clear all $C800 ROMs 



bootcaseB equ 
Idx 
stx 
Idx 
Ida 



BootC 



do 

equ 
Idx 
else 
fin 



#$CB 
MSlot 
#$0B 
ClearlOROMs 

IIc*ROM 
SWPROTO 

« 

'$05 



;Load value for MSLOT 



;Clear all $0800 latches but ours 



jNeed slot number 



188 
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03 P 


:.BaDTSPACE 


Slo 


C523 




1191 


CB23 




1192 


CB23 


0001 


1193 


CB23 




1658 


C523 




1659 


C523 




119 


C523 


0001 


120 


C523 




121 



Slot 5 Boot Code Space 
Ist off 



'1st 



i f eq 
fin 



do 



IIc"RDM 



I Ic"ROM 



Bf-JUN-SS 



PAGE 11 



If not the //c ROM, more boot spaces 



i nc iude pc . boot 
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04 PC. BOOT 



Service Boot Request 



04-JUN-85 
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CS23 
CS23 
CS23 
C525 
C525 
CB25 
C527 
C52A 
C52D 
C52D 
CB2D 
C52D 
C52F 
CB32 
C535 
C536 
C538 
C538 
C538 
C538 
C538 
C538 
C538 
C538 
C538 
C538 
C53B 
C53B 
CS3B 
C53D 
CB3D 
CB40 
CB41 
CB43 
CB43 
CB46 
CB48 
CB48 
CB48 
CS48 
CB4A 
C54B 
CB4C 
CB4D 
CB4E 
C54F 
CBB2 
CBB2 
CBB2 
C5B2 
CBB2 
CSB2 
CBB2 
CSB2 
CSB2 
C5B2 
C5B4 
CSB4 



CS23 



86 58 



A9 CB 
8D F8 07 
20 76 CB 



A0 es 

B9 70 CB 

99 42 00 

88 

10 F7 CB2F 



0001 



20 0A CB 



B0 IB CBS2 

AE 00 08 

CA 

D0 0F CBB2 

AE 01 08 

F0 0A CBB2 



AB B8 

0A 

0A 

0A 

0A 

AA 

4C 01 08 



C552 

0001 
A2 10 

C5B4 
BD 5F CB 



Now on //e, patch the Unit number {slot*1G) 

Ifeq IIc'ROM 
fin 

Now do the read from block zero 



2 * 

3 Bootcode 
4 

5 * 

6 

7 

8 

9 
10 
14 

1S * 
16 

17 bcl 
18 
19 
20 

21 • 
22 
23 
24 
31 
32 
33 
34 
35 
36 
37 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
B0 
51 
B2 
53 
B4 
55 
56 
B7 
B8 
59 
60 
61 

62 ♦ 

63 * 

64 bootfaU 

65 * 
66 
67 

68 morohrs 
69 



equ 
s tx 

do 

Ida 

5 ta 

jsr 

else 

fin 

Idy 
Ida 
5 ta 
dey 
bpl 



slot 

I Ic"ROM 
*$C5 
MSlot 
reset 



#5 

boot tab , y 

cmdcode , y 

bcl 



;Copy a command table 



do 

]sr 

else 

fin 

bcs 

Idx 
dex 
bne 

Idx 
beq 



IIc'ROM 
ProDOSEntry 

boot fail 

$800 

boot f ai 1 

$801 
boo t f ai 1 



; I f f ai 1 > check loc 

;If ($800)<>1 this is no A// boot disk 

:If $801 is zero, no boot 



It all looks okay. Jump to the code with N0 in X. 

Ida Slot 

as 1 a 

as 1 a 

asl a 

as 1 a 

tax 

jmp $801 j Jump to it 



Do this 
If thl 
If not 



code if the boot can't be done. 
s was an autoboot (loc-$CN00), continue the slot scan. 
, drop into basic after issuing appropriate message 



equ 



do lie 

Idx #>bmsglen-1 

equ * 

Ida bootmsg,x 
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Service Boot 


Reques 


t 


C557 


:9D 


DB 


07 




70 






sta 


bootscrn, x 


C55A 


:CA 








71 






dex 




C5SB 


: 10 


F7 




C554 


72 






bpl 


morchrs 


C55D 


:80 


FE 




CS5D 


73 


coma 




bra 


coma 


CS5F 










74 


« 








C55F 


:C3 


E8 


EB 


E3 


75 


bootmE 


q 


asc 


'Check 


C570 








0011 


76 


bmsglen 


equ 


*-boo tmsg 


CB70 










77 






else 




C570 










131 






fin 




C570 










132 


* 








C570 


:01 


S0 


00 


08 


133 


boot ta 


b 


dfb 


ReadCMD,$50, 


C576 










134 


« 








C576 










135 


« 








C57e 










136 


* This 


rout ine 


is called fro 


C576 










137 


• reset 


of the 


PC Bus. 


C57e 










138 


tt 








CS76 








0001 


139 






do 


IIc'ROM 


C576 








C576 


140 


Reset 




equ 


« 


C576 


:A2 


08 






141 






Idx 


"e 


C578 








C578 


142 


rsti 




equ 


« 


C578 


Ibd 


83 


C5 




143 






Ida 


rcode , x 


C57B 


:95 


00 






144 






sta 


locB ,x 


C57D 


:CA 








145 






dex 




C57E 


: 10 


F8 




C578 


146 






bpl 


rst1 


C580 


:4C 


00 


00 




147 






jmp 


loc0 


CS83 










148 


« 








C583 








CS83 


149 


rcode 




equ 


* 


CS83 


■20 


0D 


C5 




150 






jsr 


MLIEntry 


C586 


0S 








151 






dfb 


InitCMD 


CS87 


07 


00 






152 






dw 


$0007 


C589 


60 








153 






rts 




C58A 










154 


• 








C58A 


01 


00 






155 


cmdl i s 


t 


dfb 


1,0 


C58C 










156 






fin 




CB8C 










157 


« 








C58C 










158 


* 








NEXT OBJECT FILE NAME IS 


CPC 


.1 




C5FS: 






C5FS 


122 






org 


$C5F5 


C5F5:4C 


52 


C5 




123 






Jmp 


bootfail 


CSFSHC 


76 


C5 




124 






i"ip 


reset 


C5FB:00 








125 






dfb 


PCID2 


C5FC:00 


00 






126 






dw 





C5FE:BF 








127 






dfb 


PDIDByte 


CBFF:0A 








128 






dfb 


>ProDOSEntry 


C600: 








129 


* 








NEXT OBJECT FILE NAME IS 


CPC 


.2 




C880 








C880 


130 






org 


$C880 


C880 


4C 


4B 


CD 




131 






jmp 


Entry 


C883 


4C 


E8 


CF 




132 






jnip 


AppleTalkEnt 


C886 










133 






fm 




C886: 










134 


* 








C88e: 










135 






i nc lu 


de pc. packet 


C88e: 












1 




1st 


eye 


C886: 












2 • 









04-JUN-85 



;He's dead Jim. 
Disk Drive. ' 



PAGE 13 



;Read from 1st; blk0->$801 



reset code. 



It forces 



iOne parm - the unit $00 



; Jump to the boot failure message 
;Reset vector 



;The //c bank switch jumps here 
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05 PC. PACKET 



Send a CBu5 Packet 



I84-JUN-85 



PfiGE 14 



C886 
C886 

case 

C886 

C886 

C886 

C886 

C886 

C88G 

C886 

C886 

C88e 

C886 

C886 

C88S 

C886 

C88G 

0886 

C886 

C886 

C886 

C888 

C88G 

0886 

C886 

0886 

0886 

0886 

0886 

0886 

0886 

0886 

0886 

0886 

0886 

0886 

0886 

0889 

0889 

0889 

0889 

0880 

088E 

0891 

0891 

0891 

0891 

0894 

0897 

0897 

0897 

0897 

0899 

0890 

089E 

C89F 

08A1 

C8A1 



0886 



20 64 OB 



(6) 



20 80 OA (6) 
A0 07 (2) 
20 1F 00 C6) 



BD SB 00 
BD 89 00 



(4) 
(4) 



A0 32 
BD 8E 00 
30 07 
88 
D0 F8 

38 



C2) 
C4) 

08A5(3) 
(2) 

0899C3) 

(2) 



4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 



)««««««««#«««*««#««#««*«««*««««««««««««««*«**«•««««««««* 



SendOnePack 



Send a OBus Packet 



This routine sends a packet of data across the 
bus. The protocol is as foliows: 



• REQ 

* /BSY II 



4L 



* 1> Device signals ready for data * 

* 2) Host signals data iminent * 

* 3) Packet is transmitted Csync, command mark, * 

* ids, contents, check5um[msb=1]) * 

* 4) Device signals packet recieved * 

* 5> Hostfinishessenddatacycle * 

* * 

* The bytes are sent in slow mode (32 cycles/byte) * 

* and the timing is critical. Branches which should * 

* not cross page boundaries are marked. • 

» « 

* Input: buffer C2 bytes) <- ptr to data to send • 

* bytecount C2) <- length (bytes) of data * 

* packettype(l) <- command or data packet * 

* CMDUnit (1) <- # of device to receive * 

* # 

* Output: carry set- handshake error * 

* cl r- bytes sent * 
» « 

SendOnePack equ * 

* 

* Prep for the transmission 

j sr Wr i tePrep 

# 

* Enable PC chain. 



;Does a bunch of stuff 



jsr 
Idy 
jsr 



enablechai n 

*iwmmode 

SetlWMode 



* Turn on the IWM 



Ida 
Ida 



enable2 , x 
monse t , x 



jThis sets X reg 

jThis is the mode value 

jDon't mess unless we gotta 



;Don't disturb //c internal drive 



* Loop until the chain becomes unbusy 



Idy #bsyto1 

ubsy 1 Ida 17cir , x 

bmi chainunbsy 

dey 

bne ubsyl 



;Each loop is 11 microseconds 
jTest if /BSY is hi or lo 
;If hi, bus is not busy 

;Keep trying 
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C8A2 

C8fl5 

C8A5 

C8AS 

C8A5 

C8A5 

C8A5 

C8A5 

C8A8 

C8A8 

C8AA 

C8AA 

C8AC 

C8AF 

C8AF 

C8Ba 

C8B2 

C8B2 

C8B5 

C8B7 

C8B7 

C8BA 

C8BB 

C8BD 

C8BD 

C8BD 

C8BD 

C8BF 

C8C1 

C8C4 

C8C4 

C8C4 

C8C4 

C8C7 

C8C7 

C8C7 

C8C7 

C8C9 

C8CC 

C8CC 

C8CC 

C8CC 

C8CF 

C8CF 

C8CF 

C8CF 

C8D2 

C8D4 

C8D6 

C8D9 

C8DB 

C8DD 

C8E0 

C8E0 

C8E0 

C8E0 

C8E2 

C8E4 



4C CF C9 



Send a CBus Packet 
(3) 62 ]mp 
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BD 81 
A0 05 



A9 FF 
9D 8F 



B9 D6 



1E 8C 
90 FB 

9D 8D 
88 
10 F2 



A5 5A 
09 80 
20 53 



C8A5 
C0 C4J 



C2) 



C0 
C9 



(23 
(5) 



C4) 



C0 (7) 

C8B2C3) 



C0 



(5) 
C2) 

C8AFC3) 



CA 



20 51 CA 



A5 5B 
20 53 



CA 



20 51 CA 



20 51 

AS 4C 

09 80 

20 53 

A5 4B 

09 80 

20 53 



fl5 4C 
F0 15 



CA 



CA 



CA 



(3) 
(2) 
(6) 



(6) 



(3> 
(6) 



(6) 



ce) 

C3) 
(2) 
(6) 
(3) 
C2) 
C6) 



C3) 

C8F9<3) 



62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

1 10 

111 

112 

113 

1 14 

115 

116 

117 

1 18 

119 



5d10 



* Tell the bus that data is coming and send the sync bytes 

* Sync Is groups of eight 2's separated by a 6 (mlcS cell) 



C111111110011111111001111111100 ...) 



chainunbsy equ * 

Ida reqse t , X 



Idy 

Ida 
s ta 



#5 



#$FF 
Wset.x 



ssb 



Ida preamble, y 



asl 
bcc 

5 ta 
dey 
bpl 



16c 1 r , X 

ssd 

165et,x 
ssb 



;Rai5e REQ 

;Sync plus packet begin 

;Send out the 1st byte sync 



;Wait 'til buffer empty 



;Back for more byte 



* Send over the desinatlon ID 

;Make the device ID 

we're an $80) 



Ida Unit 
ora *$80 
jsr sendbyte 



* Send the source ID (that's us. 

jsr send80 

* Send over the packet type (command or data) 

Ida Wpackettype 
jsr sendbyte 

* 

* Send the Auxllliary Type byte (an *80 from this rev PC) 

jsr send80 

* 

* Send the status byte (null for us), and length bytes 

jsr 5end80 

Ida oddbytes 

ora #$80 

jsr sendbyte 

Ida grp7ctr 

ora *$80 

jsr sendbyte 

* Now send the "oddbytes" part of the packet contents 



Ida oddbytes 
beq sob2 



;Get * of "odd" bytes 
;Skip if no odd bytes 



Apponaix yv: l-ii'mwa 
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Send a CBua Packet 



04-JUN-85 



PAGE 



C8E1:A0 

C8E6:A5 

C8E8: 

C8E8: 1E 

C8EB!90 

C8ED:9D 

C8F0:C8 

C8F1 :B1 

C8F3:09 

C8F5:C4 

C8F7:90 

C8F9: 

C8F9: 

C8F9: 

C8F9! 

C8F9: 

C8F9:A5 

C8FB:D0 

C8FD:4C 

C900: 

Cg00: 

C900:EA 

C901 

C903:A5 

C905:9D 

C908! 

C908: 

C908: 

C908:AS 

C90A:09 

0900:84 

C90E:BO 

091 1 

C913:9D 

0916:A4 

0918: 

0918: 

0918: 

0918:B1 

091A:85 

C91C:0A 

C91D:2e 

C91F:C8 

0920: 

0920: 

0920: 

0920: 

C920:D0 

0922 :E6 

0924:40 

0927:48 

0928:88 

0929: 

C929: 

0929: 

0929: 

0929: 

C929:A9 



FF 
59 



80 00 



C2) 
(3) 



(7) 



FB 
8D 00 

54 
80 
4C 
EF 



C8E8(3) 
C5) 
<2) 
C5) 
(2) 
(3) 

C8E8(3) 



08F9 
4B (3) 
03 O900C3) 
99 C9 <3) 



0900 



A0 00 



41 
8D 00 



C2) 
C2) 

(3) 
(5) 



4D 
80 
59 
80 00 



10 FB 



8D 00 
59 



56 
4D 



41 



(3) 
(2) 
(3) 
C4) 

C90EC3) 
(5) 
(3) 



C5) 
(3) 
(2) 
(5) 
<2) 



05 C927C3) 

57 (5) 

29 09 C3) 

(3) 

(4) 



0929 



02 



(2) 



120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 



5ob1 



Idy 
Ida 


#$FF 
tbodd 


aal 


16clr,x 


bcc 


sobi 


5ta 


16set,x 


i ny 
Ida 


(buffer) ,y 


ora 


*$80 


cpy 
bit 


oddbytes 
sobi 



;Get the odd bytes mab's CA[7]=1) 
; Do a write handshake 



Get the data byte 
Flip on the hi bit 
Are we done? 



* Now send over the groups of seven contents 

* Currently assume there must be at least one group of 'em 



5ob2 



5ob3 



start 



equ 
Ida 


grp7c tr 


bne 


sob3 


jmp 


datdone 


equ 


» 


nop 
Idy 
Ida 


#0 
topbl ts 


sta 


16set,x 



Check if there are groups to send 
=> At least one group 
Skip to send checksum 



jWaste 2 cycles 



* Send first byte 



achel 



Ida 


next 1 




ora 


*tez 




= ty 
Idy 
bpl 

sta 


temp 
16clr 
achel 
16set 


» X 
> X 


Idy 


temp 




the 


next "1 


st" by 


Ida 


(buff 


er2),y 


sta 


nextl 




asl 


a 




rol 


topbl 


ts 


Iny 







; Swap Y for short handshake 
jWait 'til buffer ready 

; Send the byte 
;Get back Y 



; Store the top bit 
;Next byte 



It's possible that we're at a page boundary now. If so, bump the 
hi order part of the pointer. 



bne 
i nc 
jmp 
sk ip 1 pha 
pla 



skipl 
buf fer2+ 1 
skip2 



;Equalize the cases 



* Push us ahead by an additional 8 cycles for margin reasons 

* Plus I gotta get the topbits MSB set somehow... 



5kip2 



equ 
Ida 



><'%00000010 



;Flip what will be MSB 
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C92B:0S 


41 




(3) 


178 






ora 


topbi t s 


C92D:85 


41 




(3) 


179 






sta 


topbi ts 


C92F: 








180 


« 








C92F: 








181 


* 


Send 


the 


second byte 


C92F: 








182 


* 








C92F:A5 


4E 




(3) 


183 






Ida 


next2 


C931 :09 


80 




(2) 


184 






ora 


^$80 


C933:9D 


8D 


C0 


(5) 


185 






sta 


16set ,x 


C936:B1 


56 




(5) 


186 






Ida 


Cbuffer2),y 


C938:85 


4E 




C3) 


187 






sta 


next2 


C93A:0A 






C2) 


188 






asl 


a 


C93B:2G 


41 




(5) 


189 






rol 


topbi 1 5 


C93D:C8 






(2) 


190 






i ny 




C93E: 








191 


* 








C93E: 








192 


* 


Send 


the 


third byte 


C93E: 








193 


* 








C93E:A5 


4F 




(3) 


194 






Ida 


next3 


C940:09 


80 




(2) 


195 






ora 


*$80 


C942;9D 


8D 


C0 


C5) 


196 






sta 


16set,x 


C945:B1 


56 




(5) 


197 






Ida 


(buffer2),y 


C947:85 


4F 




<3) 


198 






sta 


next3 


C949:0A 






(2) 


199 






asl 


a 


C94A:26 


41 




(5) 


200 






rol 


topbits 


C94C:C8 






C2) 


201 






Iny 




C94D: 








202 


* 








C94D: 








203 


• 


Send 


the 


fourth byte 


C94D: 








204 


* 








C94D:A5 


50 




C3) 


205 






Ida 


nex t4 


C94F:09 


80 




(2) 


206 






ora 


*$80 


C951:9D 


8D 


C0 


(5) 


207 






sta 


165et,x 


C954:B1 


56 




(5) 


208 






Ida 


Cbuffer2),y 


C956:85 


50 




(3) 


209 






sta 


next4 


C958:0A 






(2) 


210 






asl 


a 


C9S9:26 


41 




(5) 


211 






rol 


topbits 


C95B:C8 






C2) 


212 






iny 




C9BC: 








213 


« 








C95C: 








214 


« 


After the 


first 256 by 


C9SC: 








215 


* 


cross , b 


ump the buffei 


C95C: 








216 


« 


seven cy 


cles of time v 


C9BC: 








217 


« 








C95C:D0 


05 


C963(3> 


218 






bne 


5kip3 


C95E:E6 


57 




(5) 


219 






ino 


buffer2+1 


C960:4C 


65 


C9 


C3) 


220 






jmp 


5kip4 


C963:48 






C3) 


221 


Bkip3 


pha 




C964;e8 






C4) 


222 






pla 




C9SS: 




C965 


223 


5k 


lp4 


equ 


» 


C965: 








224 


« 








C965: 








225 


# 


Send 


the 


fifth byte 


0965: 








226 


« 








C965:A5 


51 




C3) 


227 






Ida 


nex t5 


C967:09 


80 




(2) 


228 






ora 


#$80 


C969:9D 


8D 


C0 


(5) 


229 






sta 


16set,x 


C96C:B1 


56 




C5) 


230 






Ida 


(buffer2),y 


C96E:85 


51 




(3) 


231 






sta 


nex t5 


C970;0A 






C2) 


232 






asl 


a 


C971:26 


41 




(5) 


233 






rol 


topbits 


C973:C8 






(2) 


234 






iny 




C974: 








235 


# 









; Send the byte 



;Store the top bit 
;Next byte 



iSend the byte 



? Store the top bit 
;Next byte 



;Send the byte 



; Store the top bit 
;Next byte 

i, we will cross pages here. If we did 
Jointer. If not, equalize the cases with 



;Send the byte 



; St ore the top bit 
;Next byte 
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C974 

C974 

C974 

C976 

C978 

C97B 

C97D 

C97F 

C980 

C982 

C983 

C983 

C983 

C983 

C985 

C987 

C98A 

C98C 

C98E 

C98F 

C991 

0992 

C992 

C992 

C992 

0994 

C996i 

C996; 

0996; 

0996 

C999: 

C999: 

0999: 

C999: 

0999: 

C99B: 

099D: 

O9A0: 

C9A2: 

C9A5: 

C9A5: 

09A7: 

C9A8: 

C9AA: 

09AD: 

09AD: 

C9AD: 

C9AD: 

09AF: 

09B2: 

C9B2: 

C9B2: 

09B2: 

C9BS: 

09B7: 

C9B9: 

09B9: 

C9B0: 



AS 52 
09 80 
9D 8D 
B1 56 
85 52 
0A 

26 41 
08 



AS 53 
09 80 
9D 8D 
B1 56 
85 53 
0A 

26 41 
08 



06 4B 
F0 03 



00 



00 



C3) 
<2) 
(5) 
(5) 
C3) 
<2) 
(5> 
(2) 



(3) 
C2) 
(5) 
(5) 
C3) 
(2) 
(5) 
(2) 



(5) 

0999(3) 



:40 03 09 



(3) 



0999 
A5 40 <3) 

09 AA (2) 
BO 80 00 C4) 

10 FB 099Df3) 
9D 8D Ca (5) 



AS 40 
4A 

09 AA 
20 S3 OA 



A9 08 
20 53 OA 



C3) 
<2) 
(2) 
(8> 



C2) 
(6) 



BD 80 00 (4) 
29 40 C2) 

D0 F9 C9B2(3) 



9D 8D 00 



C5) 



236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 



Send the sixth byte 



Ida 


next6 


ora 


*$80 


sta 


16set ,x 


Ida 


Cbuffer2),y 


sta 


next6 


asl 


a 


rol 


t opbi 1 5 


iny 




the 


last byte of 


Ida 


next 7 


ora 


#$80 


sta 


16set,x 


Ida 


(buffer2),y 


sta 


nex t7 


asl 


a 


rol 


topbits 


iny 





; Send the byte 



; Store the top bit 
; Next byte 



;Send the byte 



; Store the top bit 
;Next byte 

* Now see if we have sent enough groups of seven 

dec grp7ctr 
beq datdone 
« 

* Otherwise, back to do more. Note it's too far for a branch. 

]mp start 

# 

* Whew! Now send the damn checksum as two FM bytes 

datdone equ 
Ida 



semi 



ora 
Idy 
bpl 
sta 

Ida 
isr 
ora 



chec k sum 
*$AA 
16cl r , X 
semi 
16set,x 

check sum 

a 

#$AA 

sendbyte 



;c7 c6 cS c4 c3 c2 o1 c0 

; 1 c6 1 c4 1 c2 1 c0 

sHandshake this byte 

;These are even bits 

;c7 c6 o5 c4 c3 c2 c1 c0 

; c7 c6 cS c4 c3 c2 c1 

; 1 c7 1 cS 1 c3 Id 



• Send the end of packet mark 

# 

Ida #packetend 
Jsr sendbyte 

« 

• Wait until write underflow 



5d7 



Ida 


16clr 


X 


and 


**40 




br.e 


sd7 





sta 165et,x 



;Still writing data 

;Baok to sense mode (dummy write) 
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C9BC 










294 


C9BC 










295 


C9BC 










296 


C9BC 


A0 


0A 




C2) 


297 


C9BE 


88 






(2) 


298 


C9BF 


D0 


08 




0909(3) 


299 


C9C1 










300 


C9C1 










301 


C9C1 










302 


C9C1 


A9 


01 




<2> 


303 


C9C3 








0903 


304 


C9C3 


20 


9A 


OA 


C6) 


305 


C9C6 


38 






(2) 


306 


C9C7 


B0 


06 




C9CFC3) 


307 


C9C9 










308 


0909 










309 


0909 










310 


0909 


BD 


8E 


00 


(4) 


311 


0900 


30 


F0 




C9BEC3) 


312 


C90E 










313 


090E 










314 


C90E 










315 


090E 


18 






(2) 


316 


C90F 


BD 


80 


00 


(4) 


317 


C9D2 


BD 


8C 


C0 


(4) 


318 


C9D5 










319 


09D5 










320 


C9D5 










321 


09D5 


60 






C6) 


322 


09D6 










323 


09De 










324 


09D6 










325 


09De 










326 


C9D6 










327 


09DG 










328 


09D6 










329 


C9D6 


03 








330 


C9D7 


FF 


FC 


F3 


OF 


331 


C9DC 










332 


C9DC 










333 



* Now wait until the drive acknowledges reciept of the 

• string or until timeout 



Idy *b5yto2 
patchi dey 

bne sdS 



^Load timeout to see bsy low 

;A little closer to an error 
;There'5 still time 



* Too much time has elapsed. Drive didn't get string. 

Ida #noanswer jReport error in comm error byte 

dberror equ * 

jar SetXNB ;For dberror entry 
sec ;Signal a problem 

bc5 5d10 

* See if drive has acknowledged the bytes yet 

» 

sd9 Ida 17clr,x ;Wait 'til /BSY lo 
bmi patchi 



• Finish the sequence 



sd10 



ci c 

Ida reqc 1 r , x 

Ida 16c 1 r } X 



This is a normal exit 

Set REQ lo 

Back into read mode 



* Pull back the bytecount in all cases 
rts 



This table, when sent in reverse order, provides a 
sync pattern used to synchronize the drive IWM with 
the data stream. The first byte (last sent) is the 
packet begin mark. 



preamble dfb packetbeg 

synctab dfb $FF , $FC, $F3, $Cr , $3F 
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C9DC 










335 


» 






C9DC 










336 


* These 


rout 


ines are 


C9DC 










337 


* This 


code 


segment 


C9DC 










338 


« 






C9DC 


20 


El 


C9 


C6) 


339 


waste32 


] = >■ 


was te14 


C9DF 


EA 






(2) 


340 


was te18 


nop 




C9E0 


EA 






C2) 


341 


waste16 


nop 




C9E1 


EA 






C2) 


342 


was te14 


nop 




C9E2 


60 






(6) 


343 


waste12 


rts 




C9E3 










344 


* 






C9E3 










345 


« 






C9E3 






C9E3 


346 


markerr 


equ 


» 


C9E3 


4C 


C3 


C9 


(3) 


347 




mp 


dber ror 



198 



Appendix A: Firmware Listing 



05 PC. PACKET 



Receive a CBus Packet 



04-JUN-85 



PAGE 21 



C9E6 
C9EG 
C9E6 
C9Ee 
C9E6 
C9E6 
C9E6 
C9E6 
C9E6 
C9EG 
C9E6 
C9E6 
C9E6 
C9Ee 
C9E6 
C9EG 
C9E6 
C9Ee 
C9E6 
C9E6 
C9E6 
C9E6 
C9Ee 
C9E6 
C9E6 
C9E6 
C9E6 
C9E6 
C9E6 
C9E6 
C9E6 
C9Ee 
C9E6 
C9Ee 
C9E8 
C9EA 
C9EA 
C9EA 
C9EA 
C9EC 
C9EE 
C9F0 
C9F2 
C9F2 
C9F2 
C9F2 
C9F2 
C9F2 
C9F2 
C9F5 
C9F5 
C9F8 
C9F8 
C9F8 
C9F8 
C9FB 
C9FD 
C9FD 



*««««*«'«««««««««««*««««»«««««««««««««««*««««««««'««»#«««« 



A9 00 
85 40 



AS 54 
85 56 
A5 55 
85 57 



C9E6 
C9Ee 



C2) 
C3) 



(3) 
C3) 
(3) 
C3) 



0001 



20 80 CA 
BD 8D C0 



t6) 

(4) 



BD 8E C0 (4) 
10 FB C9F8C3> 



1) Drive signals ready to send packet 

2) Host signals ready to recieve data 

3) Packet Is transmitted Csync, mark, IDs, data, 
checksum Cmsb=13) 

4> Drive signals packet dispatched 

5) Host acknowledges reciept of packet 

The bytes are sent in slow mode (32 cycles/byte) 
and the timing is critical. Branches which should 
not cross page boundaries are marked. 

Input: buffer <- address where packet guts left 

Output: carry set- handshake error 
clr- bytes recieved 
A <- error0 if carry set 



•»#«•##»••••*»•»•* 



349 

350 * 

351 * ReceivePack 

352 » 

353 * 

354 * REQ 12 

355 * 

356 * /BSY II 

357 * 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 

376 * 

377 grabstatus equ • 

378 ReceivePack equ • 

379 • 

380 * Init the checksum 

381 • 

382 Ida '$00 

383 sta checksum 

384 * 
385 
386 

387 Ida buffer 

388 sta buffer2 

389 Ida buffer+1 

390 sta buffer2+1 

391 * 
392 
393 
394 
401 
402 
403 
404 
405 
406 
407 
408 

409 rdhi Ida 17clr,x 

410 bpl rdhi 
41 1 * 
412 * Signal Liron we're 



Get a packet from bus resident 




*********************it*************** 



Copy over buffer -> buffer2 



Set up the indirect pointer for jump to 2nd part of code 

ifeq IIc^ROM ;Don't do in //c version 
fin 

jsr enablechain ;Set X register to $N0 

Ida IGsetjX ;Prep for sense mode 

Now wait for BSY to go hi, signalling 'ready w/ status' 

; Read sense 

;Ulai t til a high 

ready to recieve 
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C9FD 

C9FD 

CA00 

CA00 

CA00 

Cft00 

CA02 

CA05 

CA07 

CA08 

CA0A 

CA0A 

CA0A; 

CA0A; 

CA0Ci 

CA0Ei 

CA0EI 

CA0E; 

CA0E! 

CA0E: 

CA0E: 

CA10: 

CA13: 

CA15! 

CA17: 

CA1A: 

CA1C: 

CA1E: 

CA20: 

CA21 : 

CA23: 

CA23! 

CA23: 

CA23: 

CA2S: 

CA27: 

CA28: 

CA2A: 

CA2C: 

CA2Ei 

CA30: 

CA32: 

CA32: 

CA34: 

CA34: 

CA34: 

CA34: 

CA37: 

CA39: 

CA3A: 

CA3C: 

CA3C: 

CA3F: 

CA41 : 

CA43: 

CA4S! 

CA47: 

CA49: 



BD 81 C0 



(4) 



413 
414 
415 



Ida reqset , x 



;Raise /REQ 



A0 IE 
BD 8C 
10 FB 
88 
30 D9 



C9 C3 
D0 F4 



A0 06 
BD 8C 
10 FB 
29 7F 
99 4B 
49 80 
45 40 
85 40 
88 
10 ED 



AS 4C 
F0 27 
18 

65 54 
85 56 
A5 55 
69 00 
85 57 

A0 00 



(2) 

C0 C4) 

CA02<3) 
(2) 

C9E3C3) 



(2) 

CA02C3) 



CA0E 

C2) 

C0 (4) 

CA10C3) 

C2) 

00 (5) 

(2) 

(3) 

(3) 

(2) 

CA10{3) 



(3) 
CA4E<3) 
C2) 
(3) 
(3) 
C3) 
C2) 
(3) 

C2) 



BD 8C 
10 FB 
0A 
85 41 

BD 8C 
10 FB 
06 41 
60 02 
49 80 
91 54 
C8 



C0 (4) 

CA34(3) 
(2) 
C3) 

CA3C 
C0 (4) 

CA3Ct3) 
<S) 

CA47(3) 
(2) 
C6) 
(2) 



;Max bytes 'til stat mark 



416 * Wait for a byte from Liron or timeout 

417 • 

418 Idy #statmto 

419 rdh2 Ida 16clr,x 
120 bpl rdh2 ;*•• No Paqe Cross *** 
421 dey 

''22 bml markerr ;Dldn't find a packet in time 

423 • 

424 * Is it the beginning of the packet' 

425 • 

426 cmp *packetbeg 

427 bne rdh2 

428 » 

429 * Okay load up the table with this stuff 

430 • 



;Find the packet begin mark 
;Back again - no timeout for now 



431 rdhS 

432 • 
433 

434 rdh3 

435 

436 

437 

438 

439 

440 

441 

442 

443 * 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

45S 

456 



equ 

Idy 
Ida 
bpl 
and 
5 ta 
eor 
eor 
sta 
dey 
bpl 



#6 

16c 1 r , X 

rdh3 

*X01 111111 

rcvbuf ,y 

*$80 

checksum 

chec k sum 

rdh3 



Seven bytes of overhead 
If byte ready, grab it 
**• No Page Cross *** 
Strip start bit 

;Pop MSB back on for checksuir 



Set groups of seven buffer pointer buffer2 

;Skip alteration if no oddbytes 



Ida 
beq 
olc 
adc 
s ta 
Ida 
adc 
sta 

Idy 



oddbytes 
start2 



buffer 

buf fer2 

buffer* 1 

*0 

buf fer2+ 1 

*0 



457 * Now receive the odd bytes 

458 • 



459 start0 Ida 

460 bpl 

461 asl 

462 sta 

463 s tar 1 1 equ 

464 Ida 

465 bpl 

466 asl 

467 bcs 

468 eor 

469 gobi sta 

470 iny 



16clr , X 
5tart0 

a 
topbi ts 

* 

16c 1 r , X 
start 1 
topbi t s 
gob 1 
#$80 
Cbuf f er ) ,y 



;Read in the odd bytes topbits 
;Pop off the start bit 

!Get an odd byte 

;Get an MSB 

ilf MSB set, leave start bit 

;MSB clear- flip start bit 

;Squirrel it away 

;Next spot 
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CA4A:C4 


4C 




(3) 


471 






cpy 


oddbytes 


;Are we done? 




CA4C 


90 


EE 




CA3C(3) 


472 






bit 


starti 


i I f more , branch 




CA4E 










473 


• 












CA4E 








CA4E 


474 


starts 


equ 


« 






CA4E 








0001 


475 






do 


IIc'RQM 






CA4E 


4C 


72 


CC 


C3) 


476 






Jmp 


SlotDepRd 






CA51 










477 






else 








CAS1 










479 






fin 








CAS1 










480 


« 












CAS1 








CA51 


481 


Ser 


d8a 


equ 


* 






CA51 


A9 


80 




(2) 


482 






Ida 


#$80 






CA53 








CA53 


483 


Ser 


dBy 


te equ 


* 






CA53 


BC 


8C 


C0 


(4) 


484 






Idy 


16clr,x 






CA56 


10 


FB 




CA53(3) 


485 






bpl 


SendByte 






CASS 


9D 


8D 


C0 


(S) 


486 






sta 


16set ,x 






CA5B 


45 


40 




C3) 


487 






eor 


checksum 






CA5D 


85 


40 




(3) 


488 






sta 


checksum 






CASE 


60 






(6) 


489 






rts 








CA60 










490 


« 












CA60 










491 


« 












CAG0 










492 


• 












CA60 










493 


» 












CA60 








CA60 


494 


resetc 


nain e 


qu • 






CA60 


20 


8A 


CA 


(6) 


495 






jsr 


ClrPhases 






CA63 


BD 


81 


C0 


C4) 


496 






Ida 


reqset , x 






CASG 


BD 


85 


C0 


C4) 


497 






Ida 


ca25et ,x 






CA69 


A0 


50 




C2) 


498 






Idy 


#80 


iHard reset for 80 


ms 


CASE 


20 


73 


CA 


(G) 


499 






Js'' 


YMSWalt 






CA6E 










500 


« 












CA6E 


20 


8A 


CA 


(6) 


501 






jsr 


ClrPhases 






CA71 










502 


» 












CA71 


A0 


0A 




(2) 


503 






Idy 


#10 


iAbout 10 mS reset 


time! 


CA73 










504 


« 












CA73 








CA73 


505 


YMSWai 


: equ 


tt 






CA73 


20 


7A 


CA 


C6> 


506 






i^<~ 


QneMS 






CA76 


88 






C2) 


507 






dey 








CA77 


D0 


FA 




CA73C3) 


508 






bne 


YMSWalt 






CA79 


60 






C6) 


509 






rts 








CA7A 










510 


• 












CA7A 








CA7A 


511 


One 


MS 


equ 


* 






CA7A 


A2 


C8 




(2) 


512 






Idx 


#200 






CA7C 


Cfl 






C2) 


513 


onems 1 


dex 








CA7D 


D0 


FD 




CA7CC3) 


514 






bne 


onems 1 






CA7F 


60 






(6> 


515 






rts 








CA80 










516 


* 












CA80 










517 


* 












CA80 








CASH 


518 


ene 


blechalTi 


equ * 






CA80 


20 


9A 


CA 


<e) 


519 






sr 


SetXN0 






CA83 


BD 


83 


C0 


(4) 


520 






Ida 


calset , X 






CA86 


BD 


87 


C0 


(4) 


521 






Ida 


Istrbset.x 






CA89 


60 






C6) 


522 






rts 








CA8A 










523 


« 












CA8A 










524 


« 












CA8A 








CA8A 


525 


Clr 


Phases eq 


u * 






CA8A 


20 


9A 


CA 


C6) 


526 






]sr 


SetXN0 






CA8D 


BD 


80 


C0 


C4) 


527 






Ida 


reqci r , x 






CA90 


BD 


82 


C0 


(4) 


528 






Ida 


calclr , X 






CA93 


BD 


84 


C0 


(4) 


529 






Ida 


ca2olr , x 
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CA96 
CA99 
CA9A 
CA9A 
CA9A 
CA9A 
CA9A 
CA9C 
CA9C 
CA9C 
CA9C 
CA9D 
CA9D 
CA9D 
CA9D 
CA9D 
CAA5 
CAAD 
CAB5 
CABD 
CAC5 
CACD 
CADS 
CADD 
CADD 



BD 86 
60 



A2 60 



C0 



(4) 
(6) 



CA9A 
0001 



80 



80 80 
00 00 
80 80 
80 80 
80 80 
80 80 
80 00 
80 00 



(2) 



(6) 



80 



80 
00 
80 
80 
00 
00 
00 
00 



530 
531 
532 
533 
534 
535 
536 
537 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 



Is trbclr , x 



lie 
#$60 



Ida 

rts 



SetXN0 equ 
do 
Idx 
else 
fin 

rts 



* Shift tables for use when reading. Each table should not 

* straddle pages . 

shifti dfb $80, $80, $80, $80, $80, $80, $80, $80 

dfb 0,0,0,0,0,0,0,0 

shift2 dfb $80, $80, $80, $80, 0,0, 0,0 

dfb $80, $80, $80, $80, 0,0, 0,0 

shifts dfb $80, $80, 0,0, $80, $80, 0,0 

dfb $80, $80, 0,0, $80, $80, 0,0 

5hift4 dfb $80,0, $80,0, $80,0, $80,0 

dfb $80,0, $80,0 ,$80,0, $80,0 
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CADD: 








562 


« 










CADD: 






CADD 


563 


Sen 


dDa 


ta equ 


# 




CADD:A9 


05 




(2) 


564 






Ida 


#>RC2 




CADF:A0 


00 




C2) 


565 






Idy 


#<RC2 




CAE1 :20 


00 


CB 


(6) 


566 






jsi" 


SendPlle 




CAE4:90 


05 




CAEBC3) 


567 






bcc 


sdoubt 




CAEe:A9 


80 




(2) 


568 






Ida 


#CommRese t 




CAE8:20 


90 


CF 


C6) 


569 






1^'- 


AsslgnID 




CAEB: 






CAEB 


570 


sdoub t 


equ 


• 




CAEB:60 






C6) 


571 






rts 






CAEC: 








572 


• 










CAEC: 








573 


» 










CAEC: 






CAEC 


574 


Sen 


idPack equ 


* 




CAEC:20 


00 


CB 


C6) 


575 






jsr 


SendPlle 


;Try to send a pack 


CAEF:90 


FA 




CAEBC3) 


576 






bcc 


sdoubt 




CAF1 :A9 


80 




C2) 


577 






Ida 


'CommRese t 


;This is a communications 


CAF3!20 


90 


CF 


(6) 


578 






jsr 


AsslgnID 


jReset to try again 


CAF6: 








579 


» 










CAF6:AD 


F8 


06 


(4) 


580 






Ida 


SvBcL 


;Get back the packetlength 


CAF9:85 


4D 




(3) 


581 






5ta 


by t ecoun t 1 




CAFB:AD 


78 


07 


(4) 


582 






Ida 


SvBcH 




CAFE;85 


4E 




(3) 


583 






sta 


bytecounth 




CB00: 








584 


* 










CB00: 






CB00 


585 


Sen 


idPl 


le equ 


# 




CB00iA9 


B8 




(2) 


586 






Ida 


#>RC1 


;Retry count (big!) 


CB02:A0 


0B 




(2) 


587 






Idy 


*<RC1 




CB04: 








588 


# 










CB04: 






CB04 


589 


AltSen 


dPlle 


equ * 




CBa4:A6 


58 




(3) 


590 






Idx 


slot 




CB06:9D 


F3 


04 


C5) 


591 






sta 


Retry ,x 




CB09:98 






(2) 


592 






tya 






CB0A:9D 


73 


05 


(5) 


593 






sta 


Retry2, x 




CB0D: 








594 


* 










CB0D: 








595 


* s 


lendPack d 


estroys the byt 


ecount 


CB0D: 








596 


# 










CB0D: 






CB0D 


597 


api 


lei 


equ 


« 




CB0D:A5 


4D 




C3) 


598 






Ida 


by tecount 1 




CB0F:8D 


F8 


06 


C4) 


599 






sta 


SvBcL 




CB12:A5 


4E 




C3) 


600 






Ida ' 


bytecounth 




CB14:8D 


78 


07 


(4) 


601 






sta 


SvBcH 




CB17: 








602 


« 










CB17:20 


86 


C8 


(6) 


603 






] = '• 


SendOnePack 


;Send the packet 


CB1A: 








604 


« 










CB1A:AD 


F8 


06 


(4) 


605 






Ida 


SvBcL 




CB1D:85 


4D 




C3) 


606 






sta 


by tecount 1 




CB1F:AD 


78 


07 


C4) 


607 






Ida 


SvBcH 




CB22:8S 


4E 




C3) 


608 






sta 


bytecounth 




CB24: 








609 


# 










CB24:90 


0C 




CB32(3) 


610 






bcc 


spl lout 




CB26:A6 


58 




(3) 


611 






Idx 


slot 




CB28:DE 


F3 


04 


(7) 


612 






dec 


Retry ,x 




CB2B:D0 


E0 




CB0D(3) 


613 






bne 


spi le 1 




CB2D:DE 


73 


05 


(7) 


614 






dec 


Retry2,x 




CB30: 10 


DB 




CB0D(3) 


615 






bpl 


spilel 


;If all fails, carry is se 


CB32:60 






(6) 


616 


= pi 


lou 


t rts 






CB33: 








617 












CB33: 






CB33 


618 


Rec 


;Pac 


k equ 


« 




CB33:A4 


58 




C3> 


619 






Idy 


Slot 
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05 PC. PACKET Receive a CBus Packet 04-JUN-85 PAGE 26 

CB35:A9 05 (2) 620 Ida *>RC2 

CB37:99 F3 04 CS) 621 sta Retry, y 

CB3A: CB3A 622 rpk1 equ • 

CB3A:20 E6 C9 (6) 623 jsr RecelvePack 

CB3D:90 0F CB4EC3) 624 bcc rpout 

CB3F:A0 01 (2) 625 Idy #1 

CB41:20 73 CA (6) 626 jsr YMSWalt 

CB47;A6 II '' (" 62" Idx Itr' ''"^^'^'^ handshake and set carr, 

CB49:DE F3 04 (7) 629 dec Retry, x 

CB4C:D0 EC CB3AC3) 630 fane rpk1 ;Carry set still 

CB4E: CB4E 631 rpout equ • 

CB4E:60 (6) 632 rts 

CB4F: 633 * 

CB4F: 634 • 



'irimvare Listing 



05 PC. PACKET 



Divide by 7 routine 



34-JUN-85 



PAGE 27 



CB4F 
CB4F 
CB4F 
CB4F 
CB4F 
CB4F 
CB4F 
CB4F 
CB4F 
CB4F 
CE4F 
CB4F 
CB4F 
CB4F 
CB4F 
CB4F 
CB4F 
CB4F 
CB52 
CB55 
CBSB 
CB61 
CB61 
CB64 
CB64 
CB64 
CB64 
CB64 
CB64 
CB64 
CB64 
CB66 
CB68 
CB68 
CB6A 
CB6C 
CB6C 
CB6E 
CB70 
CB72 
CB72 
CB74 
CB76 
CB77 
CB79 
CB7B 
CB7B 
CB7B 
CB7B 
CB7B 
CB7B 
CB7E 
CB80 
CB83 
CB85 
CB85 
CB85 
CB85 



00 



24 49 

04 01 

01 02 04 

01 02 04 



00 7F FF 



AS 
F0 

A5 
85 

AS 
E0 
F0 

E6 
A9 
18 
65 
85 



4E 
13 



55 
57 



80 
01 
04 



57 
00 



54 
56 



CB64 
CB64 



C3) 

CB7B<3) 

(3) 
(3) 

C2) 
C2) 

CB76(3) 

C5) 
C2) 
C2) 
(3) 
C3) 



CB7B 
4F CB (4) 
4B C3) 
52 CB C4) 
4C C3) 



636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 



»«««*««»*#*«*«««4 



************** 



Divide? 



Do DIV and MOD 7 and set auxptr 

This routine divides the bytecount by seven. The 
quotient gives the number of groups of seven bytes to 
be sent, and the remainder gives the number of "odd" 
bytes . 

Input: bytecountljh <- # of bytes to write 

buffer <- pointer to data 

Output: auxptr <- pointer to speed up csumming 

oddbytes <- bytecount MOD 7 

grp7ctr <~ bytecount DIV 7 



**«««#«««««*««*««« 



t«##«####«#»»#####*#####t#*##«###«#»#### 



pdiv7tab dfb 0,36,73 
pmod7tab dfb 0,4,1 
div7tab dfb 0, 1 ,2,4,9, 18 
mod7tab dfb 0, 1 ,2,4, 1 ,2 

* 

auxptrinc dfb 0,$7F,$FF 

* 

Wr i tePrep equ * 
Divide? equ * 
* 

* Set up auxptr <- buffer* $8( 

* or auxptr <- buffer + $1li 



if $0FF < bytecount < $200 
if $ IFF < bytecount 



sapl 



Idx 


by tecoun t h 


beq 


noauxp t r 


Ida 


buffer+1 


sta 


auxptr + 1 


Ida 


#*80 


cpx 


#1 


beq 


sap 1 


inc 


auxp t r + 1 


Ida 


*0 


clc 




adc 


buffer 


5 ta 


auxptr 



;0, 1 or 2 

jAuxptr used only for full pages 

^Copy over hi order part 

;Anticipate smaller bytecount 

; Chec k bytecount 

;=> $0FF < bytecount < $200 

;Add $100 to bytecount instead 
;Make sure lo order unaltered 



* Now look up the first order guess for DIV and MOD. X stiH has 

* bytecount DIV 256. 

* 

noauxptr equ * 

Ida pdi v7tab , X 
sta grp7ctr 
1 da pmod7 tab , x 
sta oddbytes 

* Now add in the mods and divs for each of the five hi order 

* bits in the lo order bytecount, correcting each time MOD becomes 

* bigger than 6 . 
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05 PC. PACKET 



Divide by 7 routine 



04-JUN-85 



PAGE 28 



CB85: 






694 


« 








CB85:A2 


05 


(2) 


695 






Idx 


#5 


CB87:A5 


4D 


(3) 


696 






Ida 


bytecount 1 


CB89:85 


59 


(3) 


697 






sta 


temp 


CB8B!29 


07 


(2) 


698 






and 


'':i:0000011 1 


CB8D:A8 




(2) 


699 






tay 




CB8E! 






700 


* 








CB8E: 




CB8E 


701 


divide 


3 equ 


• 


CB8E:06 


59 


C5) 


702 






asl 


temp 


CB9B:90 


15 


CBA7(3) 


703 






bcc 


dlvldea 


CB92:BD 


5B 


CB C4) 


704 






Ida 


mod7tab ,x 


CB9S: 




CB95 


705 


divide 


4 equ 


* 


CB95: 18 




C2) 


706 






clo 




CB96:65 


4C 


C3) 


707 






adc 


oddbytes 


CB98:C9 


07 


(2) 


708 






cmp 


*7 


CB9A:90 


02 


CB9EC3) 


709 






bit 


dlvldel 


CB9C:E9 


07 


(2> 


710 






sbc 


#7 


CB9E: 




CB9E 


711 


divide 


1 equ 


tt 


CB9E:85 


4C 


(3) 


712 






sta 


oddbytes 


CBA0!BD 


55 


CB (4) 


713 






Ida 


dlv7tab,x 


CBA3:65 


4B 


(3) 


714 






adc 


grp7c t r 


CBA5:85 


4B 


(3) 


715 






sta 


grp7ctr 


CBA7: 




CBA7 


716 


divide 


2 equ 


» 


CBA7:CA 




C2) 


717 






dex 




CBA8:30 


06 


CBB0C3) 


718 






bml 


dlvlde5 


CBAA:D0 


E2 


CB8E(3) 


719 






bne 


divides 


CBAC: 






720 


» 








CBAC:98 




(2) 


721 






tya 




CBAD:4C 


95 


CB (3) 


722 






jmp 


dlvlde4 


CBB0: 






723 


» 








CBB0: 




CBB0 


724 


divide 


5 equ 


* 


CBB0: 






725 


ft 








CBB0: 






726 


* 









;Do for five bits 

;Store lo order for shifting 
jSave lo three for later 



C <- next from bytecountl 

If clear, no effect on DIV.MOD 

Get MQD7 for 2*n 



Oot new MOD value 

Is It too big? 

-> NO leave MOD - 0->C 

Bring MOD under 7 - C still set 



;Oet DIV for this 2"n 

iAdd to DIV along with correction (C) 

;Update the DIV 

;One less bit to deal with 
jEscape after 6 times through loop 
iTake brnch 1st 5 loops 

;Oet back the last three bits 
jSlxth pass add in remains 



206 



05 PC. PACKET 



Checksum Prepass 



01-JUN-8S 



PAGE 29 



CBB0 

CBB0 

CBB0 

CBB0 

CBB0 

CBB0 

CBB0 

CBB0 

CBB0 

CBB0 

CBB0 

CBB0 

CBB0 

CBB0 

CBB0 

CBB0 

CBB2 

CBB3 

CBB5 

CBB7 

CBB9 

CBB9 

CBBC 

CBBC 

CBBE 

CBC0 

CBC1 

CBC3 

CBC5 

CBC7 

CBC7 

CBC7 

CBC7 

CBC9 

CBCB 

CBCD 

CBCF 

CBCF 

CBCF 

CBCF 

CBCF 

CBCF 

CBD1 

CBD3 

CBD5 

CBD7 

CBD8 

CBDA 

CBDC 

CBDC 

CBDC 

CBDC 

CBDC 

CBDE 

CBDF 

CBE1 

CBE1 



CBB0 



fi5 55 (3) 
48 (3) 

A9 00 (2) 
A6 4E (3) 

F0 16 CBCFC3) 
CBB9 

BC 61 CB <4) 
CBBC 



51 54 
51 56 
88 

D0 F9 
51 54 
51 56 



E0 01 

F0 02 

E6 55 

E6 55 



A4 4D 

F0 09 

51 54 

51 54 
88 

D0 FB 

51 54 



85 40 
68 
85 55 



(5) 
t5) 
C2) 

CBBCC3) 
C5) 
(5) 



(2) 

CBCD(3) 
C5> 
(5) 

CBCF 



(3) 

CBDCO) 
C5) 
(5) 
C2) 

CBD5(3) 
C5) 



CBDC 



(3) 
C4) 
C3) 



728 •••«•»»«•»»»»•»•»•»•»♦•»•»»«»««»»«.«»»♦.«»»,,,..,»»»,,,,,,,,,, 

729 * . 

Does the checksumming prepass * 



<- bytes in buffer 

<- pointer to data to send 

<- extra pointer to speed process 

<- 8 bit XOR of data to be sent 



730 » PreCheck 

731 • 

732 * Input: bytecount 

733 • buffer 

734 * auxptr 

735 • Output: checksum 

736 * 

737 ••••••»••••«•«•••••••••»••«••••»•»•»•••••»••»••»•»•*»»*» 

738 * 

739 PreCheck equ * 

740 ♦ 
741 
742 



743 

744 

745 

746 

747 

748 xor2 

749 

750 xorl 

751 



Checksum any full pages 
buffer* 1 



Ida 
pha 
Ida 
Idx 
beq 
equ 
Idy 
equ 
eor 
eor 
dey 
bne 
eor 
eor 



*0 

bytecounth 
las tpass 

# 

auxptr inc , x 

(buffer) ,y 
(auxptr) ,y 



;Preserve buffer pointer 

;If no complete pages, skip this 
;Get number of bytes each ptr 



xor 1 

(buffer) , y 
(auxptr ) , y 



; Have to deal with 
Now move the buffer up for next section 



case 



752 

753 dey ;One less 

754 

755 

756 

757 

758 

759 

760 cpx *^ 

761 beq xorS 

762 inc buffer+1 

763 xor5 inc buffer+1 

764 • 

765 lastpass equ * 

766 ♦ 

767 * Do the remaining less than a page with a sinqle pointer 

768 « ^ ^ 



;If 256 and up bytes, bump x1 
; otherwise x2 



xor3 
(buffer) ,y 



769 Idy bytecount 

770 beq xor4 

771 eor (buffer), y 

772 xor3 eor (buffer), y 
773 
774 
775 

776 • 

777 * Store result away. 

778 • 

779 xor4 equ * 

780 sta checksum 

781 pla 

782 sta buffer*1 

783 » 

784 * 



Idy 
beq 
eor 
eor 
dey 
bne 
eor 



;Compensate for nth byte 



;Last damn (0th) byte 
Retrieve old buffer value. 
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BB PC. PACKET Get topbits byte for odds 04-JUN-85 PAGE 30 

CQ£ 1 ; 786 **•**•*•******•**»****»****»•*******«»«*«*#«*«»»•****#» 

CBE1: 787 ♦ • 

CBE1: 788 * DetTopBits Get topbits for odd bytes * 

CBE1: 783 • • 

CBE1: 79B * Also sets bufferZ pointer to pointer at groups of * 

CBE1: 791 * seven bytes. * 

CBE1: 792 * • 

CBE1: 793 * Input: oddbytes <- * of "odd" bytes • 

CBE1: 794 • buffer <- pointer to data ♦ 

CBE1: 795 * Output: tbodd <- topbits for odd bytes * 

CBE1: 796 • bufferS <- buf f er +oddby t es * 

CBE1: 797 « * 

CBE1; 798 •******•****••******»*•»*•«»************•*•*»»*•••»»*#» 

CBE1: 799 * 

CBE1: CBE1 BBS DetTopBits equ * 

CBE1: 801 • 

CBE1:A4 4C (3) 802 Idy oddbytes 

CBE3:88 (2) 803 dey 

CBE4:A9 00 (2) 804 Ida *d 

CB£6:85 59 (3) 805 sta tbodd 

CBE8: 806 * 

CBE8:B1 54 (5) 807 gtbob Ida (buffer), y 

CBEA:0A (2) 808 asl a 

CBEB:e6 59 (5) 809 ror tbodd 

CBED:88 (2) 810 dey 

CBEE;10 F8 CBE8(3) 811 bpl gtbob 

CBF0:38 (2) 812 sec 

CBF1:6e 59 (5) 813 ror tbodd 

CBF3: 814 • 

CBF3:A5 4C (3) 815 Ida oddbytes 

CBFS:18 (2) 816 clc 

CBF6:65 54 (3) 817 adc buffer 

CBF8:85 56 (3) 818 sta buffer2 

CBFA:A5 55 (3) 819 Ida buffer+1 

CBFC:69 00 (2) 820 adc *0 

CBFE:85 57 (3) 821 sta buffer2+1 

CC00: 822 • 

CC00: 823 • 
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05 PC. PACKET 



Prime write pump 



04-JUN-85 



PAGE 31 



CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC00 

CC02 

CC03 

CC05 

CC08 

CC0A 

CC0B 

CC0D 

CC0E 

CC10 

CC11 

CC13 

CC13 

CC13 

CC13 

CC15 

CC16 

CC18 

CC1A 

CC1C 

CC1E 

CC1E 

CC1F 

CC1F 



A0 06 

38 

B1 56 

99 ID 

30 01 

18 

66 41 

88 

10 F2 

38 

66 41 



A5 56 
18 

69 07 
85 56 
90 02 
E6 57 



60 



CCa0 



C2) 
(2) 
(5) 

a ts) 

CC0BC3> 
(2) 
C5) 
(2) 

CC02C3) 
(2) 
CS) 



(3) 
C2) 
(2) 
C3) 

CC1EC3) 
(5) 

CC1E 

(6) 



825 

826 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 

840 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 



* . 

* Sun Set up next buffer and tooblts * 

* Primes the pipe for the group of seven bytes routine * 

* setting the topblts byte and the "next" buffer. • 

* The routine also advances the buffer pointer by 7 to » 

* prepare for the groups of seven transfer. • 

* * 

* Input: buffer2 <- points to groups of 7 data * 

* Output: next1,7 <- first 7 bytes In buffer » 

* topblts <- MSBs of first 7 bvtes • 

Sun equ * 

* Copy first seven bytes into the pipeline 
#6 



##»#»»######«»###»#« 



sun2 



5un1 



Idy 
sec 
Ida 
5 ta 
bml 
c Ic 
ror 
dey 
bpl 
sec 
ror 



Cbuffer2),y 
nex t , y 
suni 



topbi t 5 
5un2 
topbi ts 
Advance the pointer 
buf fer2 



sun3 



Ida 
c 1 c 
adc 
s ta 
bcc 
inc 
equ 
rts 



#7 

buf fer2 

5un3 

buf fer2+1 
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05 PC. PACKET 



Set the IWM mode reg 



Bt-JUN-eS 



PAGE 32 



CC1F 
CC1F 
CC1F 
CC1F 
CC1F 
CC1F 
CC1F 

CC1F: 
CC1F: 

CC1F: 

CC1F: 

CC1F: 

CC1F: 

CC1F 

CC22 

CC25 

CC28 

CC29 

CC2C 

CC2C 

CC2D 

CC30 

CC32 

CC34 

CC35: 

CC35: 

CC35: 

CC35: 

CC35: 

CC35: 

CC35: 

CC35: 

CC38: 

CC3B! 

CC3E: 

CC3E: 

CC41 : 

CC43: 

CC4B: 

CC48: 

CC48! 

CC48! 
CC48: 
CC49: 
CC4B: 
CC4C: 
CC4E: 
CC4F: 
CC4F: 
CC58: 
CC50: 
CC50: 
CC50: 

CC50 
CC50 
CC50 
CC50 
CCS0 



CC1F 



BD 88 
BD 8D 
4C 2C 
98 
9D 8F 

98 

5D 8E 
29 1F 
D0 F4 
60 



C0 
C0 
CC 

C0 



C0 



20 9A 
BD 8E 
BD 8D 

BD 8E 
29 20 
D0 F9 
BD 8C 



5A 

A0 8C 
88 
D0 FD 



7A 



60 



(4) 
C4) 
(3) 
C2) 
(5) 

CC2C 

<2) 
C4) 
(2) 

CC28C3) 
(6) 



0001 
CC35 



CA (6) 
C0 (4) 
C0 C4) 

CC3E 
C0 C4) 
(2) 

CC3E(3) 
C0 (4) 



(3) 
(2) 
(2) 

CC4B<3) 
(4) 



C6) 



CC50 



A5 4B 



(3) 



869 
870 
871 
872 
873 
874 
875 

876 
877 

878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
90S 
906 
907 
908 
909 

910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 

922 
923 
924 
925 
926 



X is 5lot*16, Y is the desired mode 

Set up the IWM mode register. Extreme care should be taken 
here. Setting the mode byte with indexed stores causes a false 
byte to be written a cycle before the real value is written. 
This false value, if It enables the timer, causes the IWM Rev A 
to 

pop the motor on, inhibiting the setting of the mode until the 
motor times out! We avoid this by setting the mode byte only 
when 

it is not what we want, and if it's not we stay here until we 
see that it is what we want. 



SetlWMode equ * 

Ida mono 1 r , x 
Ida 165et , x 
jmp careful 

biz tya 

sta 175et,x 

careful equ * 
tya 



eor 
and 
bne 
rts 



17clr,x 

#$1F 
biz 



;Motor must be off 

;Set up to access mode register 

jDon't mess unless we gotta 

;Try storing the mode value 

Oet back the target value 
Compare with observed value 
Can only read low 5 bits 
If not right, back to try again 



Do lie 
WaitlWMOff equ * 

* Make sure you're in read mode and wait 'til Disk // motor is off 



wiwml 



Ida 
Ida 
equ 
Ida 
and 
bne 
Ida 



SetXN0 

17clr,x 

16set,x 

17clr,x 
#%00100000 
wiwml 
16c 1 r , x 



:Set X 



* Wait an additional 700 microseconds to allow 12V on Disk // to 

decay 

« 

phy 

Idy #140 
wiwm2 dey 

bne wiwm2 

ply 

« 

rts 
fin 

# 

* This takes grp7ctr and oddbytes and calculates 
7*grp7ctr+oddbytes. 

* The results are in YChi) and AClo). This is the number of bytes 

* that were received in the last ReceivePack. 
* 

Rcvcount equ • 

Ida grp7ctr 



210 
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CCS2 
CC53 
CC55 
CCS7 
CC59 
CC5A 
CC5C 
CC5D 
CC5F 

ccee 

CC62 

CC64 

CC661 

CC68i 

CC69i 

CC6B: 

CCSD; 

CC6F: 

CC71 : 

CC72: 

CC72: 

CC72: 

CC72: 

CC72: 

CC72: 

CC72: 

CC72 

CC74 

CC76 

CC77 

CC79 

CC7C 

CC7C 

CC7Ci 

CC7C; 

CC7Ci 

CC7C; 

CC7F: 

CC81 : 

CC83: 

CC83: 

CC83: 

CC83: 

CC84: 

CC85: 

CC86: 

CC88: 

CC89: 

CC8B: 

CC8D: 

CC8F: 

CC8F: 



:A8 

:A2 BB 
:86 4B 
:A2 03 
:0A 

:26 4B 
:CA 

:D0 FA 
! 18 

;65 4C 
:90 02 
:E6 4B 
84 4C 
38 

E5 4C 
B0 02 
C6 4B 
A4 4B 
60 



A0 00 
AS 4B 
48 

D0 03 
4C 09 CD 



(2> 
(2) 
C3) 
(2) 
(2) 
C5) 
C2) 

CC59(3) 
C2) 
(3) 

CC66C3) 
(5) 
(3) 
C2) 
(3) 

CC6F(3) 
CS) 
C3) 
(6) 



0001 

CC72 

CC72 

(2) 
C3) 
C3) 

CC7C(3) 
f3) 



CC7C 
AD EC C0 (4) 
10 FB CC7C(3) 
85 59 C3) 



4A 
4A 
4A 

29 0F 
AA 

A5 59 
29 07 
85 59 



C2) 
(2) 
C2) 
C2) 
(2) 
C3) 
C2) 
(3) 



CC8F: 

CC8F:AD EC C0 
CC92: 10 FB 
CC94:5D 9D Cfl 
CC97:91 56 
CC99:45 40 



C4) 

CC8FC3) 
(4) 
C6) 
C3) 



927 
928 
929 
930 



tay 
Idx 
3tx 
Idx 

931 tlme57 asl 
rol 
dex 
bne 
clc 
adc 
bcc 
inc 



932 

933 

934 

935 

936 

937 

938 

939 t71 

940 

941 

942 

943 

944 T72 

945 

946 * 

947 • 
136 » 
137 
138 



sty 
sec 
abc 
bcs 
dec 
Idy 
rts 



do 



#0 

grp7c t r 
#3 
a 
grp7c t r 

t lme57 

oddbytes 
t71 

grp7c tr 
oddbytes 

oddbytes 
t72 

grp7c tr 
grp7otr 



IIc"ROM 



1 SlotDepRd equ 

2 5tart25 equ 
Idy 
Ida 
pha 
bne 



Include pc.cread 



3 
4 
5 
6 
7 
8 
9 
10 
11 

12 5tart35 equ 
Ida 
bpl 
5 ta 



grp7c t r 

5tart35 
done5 



;Save groups of seven counter 
;Go get the checksum 



13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 

29 
30 
31 
32 
33 
34 



Okay, get the groups of seven 
Start by getting the topbits for this group of 



16clr+The0ff ;Get topbits 

s tar t3S 

temp 



;Just a second 
Split up the seven bits into tw 



indices for topbit tables 



Isr 


a 


Isr 


a 


Isr 


a 


and 


#%00001111 


tax 




Ida 


temp 


and 


*%00000111 


sta 


temp 



1 


d1 


d2 


d3 


d4 


d5 


d6 





1 


d1 


d2 


d3 


d4 


d5 








1 


d1 


d2 


d3 


d4 











d1 


d2 


d3 


d4 



Now read the first bvte 
it. ^ 



Ida 


16clrtThe0ff 


bpl 


•-3 


eor 


shiftl.x 


sta 


Cbuffer2),y 


eor 


checksum 





First index into the tables 
1 d1 d2 d3 d4 d5 d6 d7 
d5 d6 d7 
Keep for last three bytes 

reunite its msb, store it, and checksum 



;Back 1 instruction 
;Recombine the MSB with data 
;Store it away 
;Add it to the checksum 



A))pend)x A; Fjrimvarc Li 
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CC9B:85 


40 




(3) 


35 


CC9D:C8 






(2) 


36 


CC9E: 








37 


CC9E: 








38 


CC9E: 








39 


CC9E: 








40 


CC9E:D0 


02 




;CA2<3) 


41 


CCA0:E6 


57 




C5) 


42 


CCA2: 








43 


CCA2: 








44 


CCA2: 








45 


CCA2:AD 


EC 


C0 


(4) 


46 


CCA5: IB 


FB 




CCA2(3) 


47 


CCA7:5D 


AD 


CA 


(4) 


48 


CCAA:91 


56 




C6) 


49 


CCAC:45 


40 




(3) 


50 


CCAE:8S 


40 




(3) 


51 


CCB0:C8 






(2) 


52 


CCB1: 








53 


CCB1 : 








S4 


CCB1: 








55 


CCB1 :AD 


EC 


C0 


(4) 


56 


CCB4: 10 


FB 




CCBK3) 


57 


CCBe:5D 


BD 


CA 


C4) 


58 


CCB9:91 


56 




(6) 


59 


CCBB:45 


40 




(3) 


60 


CCBD:85 


40 




(3) 


61 


CCBFrCS 






(2) 


62 


CCC0: 








63 


CCC0: 








64 


CCC0: 








65 


CCCBiAD 


EC 


C0 


(4) 


66 


CCC3:10 


FB 




CCC0<3) 


67 


CCC5:5D 


CD 


CA 


(4) 


68 


CCC8:91 


56 




(6) 


69 


CCCA:45 


40 




C3) 


70 


CCCC:85 


40 




(3) 


71 


CCCE:C8 






(2) 


72 


CCCF: 








73 


CCCF: 








74 


CCCF: 








75 


CCCF: 








76 


CCCF:D0 


02 




CCD3(3) 


77 


CCD1 :E6 


57 




(5) 


78 


CCD3: 








79 


CCD3:A6 


59 




(3) 


80 


CCD5: 








81 


CCD5: 








82 


CCD5: 








83 


CCD5:AD 


EC 


C0 


(4) 


84 


CCD8: 10 


FB 




CCD5(3) 


85 


CCDA:5D 


AD 


CA 


(4) 


86 


CCDD:91 


56 




C6) 


87 


CCDF:45 


40 




(3) 


88 


CCE1 :85 


40 




C3) 


89 


CCE3:C8 






(2) 


90 


CCE4: 








91 


CCE4: 








92 



Set the INM mode reg 

sta checksum 
iny 

Now, the second Y turn over occurs at this point in the loop. 
Update 
the buffer pointer if it occurred. 



bne 
inc 



• + 4 

buf f er2+1 



Now the second byte 



Ida 
bpl 
eor 
sta 
eor 
sta 
iny 



leolr+TheOff 

*-3 

shif t2,x 

Cbuffer2),y 

checksum 

check sum 



Now the third byte 



Ida 
bpl 
eor 
sta 
eor 
s ta 
iny 



leclr+TheOff 

•-3 

shlf t3,x 

(buffer2),y 

check sum 

checksum 



Now the fourth byte 



Ida 
bpl 
eor 
sta 
eor 
s ta 
iny 



leolr+TheOff 
•-3 

shif t4,x 
(buf fer2) ,y 
check sum 
check sum 



Back 1 Instruct ion 
Recombine the MSB with data 
Store it away 
Add it to the checksum 



Back 1 instruction 
Recombine the MSB with data 
Store it away 
Add it to the checksum 



Back 1 Instruction 
Recombine the MSB with data 
Store it away 
Add it to the checksum 



The first Y turn over occurs at this point in the loop. Update 
the buffer pointer if it occurred. 



bne 
i nc 



**4 

buf f er2+ 1 



Idx temp 
Now the fifth byte 



Ida 


16clr+Theaff 


bpl 


*-3 


eor 


5hift2,x 


sta 


(buffer2>,y 


eor 


chec k sum 


sta 


check sum 


iny 





;Now we need the other index 



Back 1 instruction 
Recombine the MSB with data 
Store it away 
Add it to the checksum 



Now the sixth byte 
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16clrtTheDff 



CCE4: 93 

CCE4:AD EC C0 C4) 94 Ida 



CCE7:10 FB CCE4(3) 95 bpl .-3 .n,,,, , • , 

CCEq-qn nn ra r^^ oe '^ iBack 1 instruction 

Cclc-l: si G 97 ^V =^^f'3'- ;Raoomblne the MSB with date 

CCEE-45 40 J^, tl =*^ Cbuffer2),y jStore It away 



iry 



iny 
see if this Is the last group of seven to receive 



CCF2:C8 (2) 100 

CCF3: 101 

^%l'- 182 * And, finally, the seventh byte 

(^CF3: 103 » ^ 

CCF3:AD EC C0 (4) 104 Ida 16clr*TheDff 

CCF6:10 FB CCF3(3> 105 bpl .-3 -BbcI, 1 in=t ,- 

rrrp-cnmrA r ^ -^ a nr-^ " -^ jDQCki instruction 

CD01:C8 (2) 110 

CD02: 111 » 

CD02: 112 • N 

CD02: 113 » 

CD02:C6 4B (5) 114 dec qrp7ctr 

D0'6;4C7CCC'°''JL' :;i Ml ri,. ;0o to get the chec.su. etc 

CD09J 117 . ■> P 5tart3S jAnother topbits ... 

CD0I.: ]]g * °^* ^"'^ reconstruct the checksum 

CD09: CD09 120 doneS equ 

'^\V.!'^.^%'\.^.\\\ \ll if, leclr.TheOff 

CD0E = B5 59 C3) 123^ s?a temp , 1 cS 1 c4 1 c2 1 c0 

'^I'lBiGS C4) 125 nla D * 

CD11:85 4B (3) 126 sta qrD7ctr ;R = =t<"-e groups of 7 counter 

C^°]|;?^^r%D13j^^ \ll if ?Bir.TheOff , 1 c7 1 c5 1 c3 1 c , 

CD18:38 C2) 129 sec 

cSiaU's 59 [I] ll? ^°i ? "=^ 1 C5 1 c3 1 c1 1 

CD c:4i 40 C3) 32 ^""^ ^^^ '=^ ^^ "^ "^^ -=3 =2 =1 =" 

CD1E: 133 . "^ checksum iWhen we're done, should be zero 

CdJe- 135 I °^* *^^ packet end mark. Is It correct? 

CD23; 138 * 

CD23!C0 C8 C2) 139 cpy #packetend 

CD25=D0 1C CD43(3) 140 bne npenderrS 

CD27: 141 * '^ 

Cd"- mI .* °i'^"i*M^r \T ^^^°'^ '° checksum oddbytes. Do it now 

CqIj. 144 I *^^ partial checksum 

CD27;A6 4C C3) 145 Idx oddbytes 

CD29:F0 08 CD33(3> 146 beq icbt15 

CD2B:A0 00 C2) 147 IdJ »l 

'^rllVVc. ^^ '^' ^^^ '^^^^ "'• (buffer), y 

CD2F:C8 (2) 149 mv '^ 

CD30:CA C2) 150 



i ny 
dex 
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CD33 

(2) 

CD47C3) 



CD36 



CD31 :D0 FA CD2D(3) 

CD33: 

CD33: 

CD33: 

CD33: 

CD33!AA 

CD34:Da 11 

CD36: 

CD36: 

CD36: 

CD36: 

CD36:AD ED C0 (4) 

CD39:AD EE C0 C4) 

CD3C:30 FB CD39(3) 

CD3E: 

CD3E: 

CD3E: 

CD3E:AD E0 C0 

CD41 : 

CD41 : 18 

CD42:60 

CD43: 

CD43:A9 20 

CD45:D0 02 

CD47:A9 10 

CD49:38 

CD4A:60 

CD4B: 

CD4B: 

CD4B: 

CD4B: 



1S1 
152 



bne 



icbtB 



153 * Okay, checksum oughta be zero. If not, checksum error. 

154 » 

155 IcbtIS equ * 

156 tax 

1 57 bne cserror5 

158 • 

159 • Wait for /BSY to go low 

160 * 

161 lstbsywalt5 equ • 

162 Ida 165et+TheOff 

163 rdh45 Ida 17clr+The0ff 

164 bmi rdh45 

165 * 

166 * Got the bytes, now acknowledge their reciept 

167 * 

168 Ida reqclr+TheOf f ;Lower REQ 

169 * 

170 clc 

171 rts 

172 * 
(2) 173 npenderrE Ida *nopackend 

CD49(3) 174 bne g5error5 
C2) 175 cserrorB Ida *csumerr 
C2) 176 gserror5 sec 
t6) 177 rts 
178 * 

139 fin 

140 » 

141 include pc.main 



(4) 



C2) 
(6) 



2!4 



Appendix A: Firmware Listing 



07 PC. MAIN 

CD4B: 

CD4B: 

CD4B: 

CD-IBrSB 03 

CD4D:4C 23 C5 

CD50: 

CD50: 

CD50: 

CDB0: 

CD50: 

CD50: 

CD50:A9 10 

CDS2:1C 78 04 

CDSS: 

CDS5: 

CDS5: 

CDSS: 

CDSB:D8 

CD56:8A 

CDS7:A8 

CDSS: 

CD58: 

CDSS: 

CD58:B9 73 

CDSB:30 11 

CD5D: 

CD5D:eS 

CDSE:99 F3 05 

CD61: 18 

CD62:69 03 

CD64:AA 

CD6S:68 

"De6:99 73 06 

D69:69 00 
0D6B:48 
CDeC:8A 
CD6D:48 
CDGE: 
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CD4B 
CDS0(3) 
(3) 



CD50 



0001 



(2) 
C6) 



CDSS 



(2) 
C2) 
(2) 



C4> 

CD6EC3) 

C4) 
(S> 
C2) 
(2) 
(2) 
C4) 
(S) 
(2) 
(3) 
C2) 
(3) 



CD6E: 

CD6E: 

CD6E: 

CDGE: 

CD6E: 

CD6E: 

CDGE: 

CDGE: 20 35 CC 

CD71 : 

CD71 : 

CD71 : 



CD71 : 

CD71:08 

CD72:78 

CD73: 

CD73: 

CD73: 

CD73:A2 

CD75:B5 

CD77:48 



CDGE 



0001 



IB 
40 



CG) 



C3) 
C2) 



C2) 
(4) 
C3J 



;If non-boot, skip jump to boot 



;ProFlag l5 fixed In //c 



4 Entry equ * 

5 bcc bentry 

6 imp bootcode 

7 • 

8 * X Is still set to slot number. 

9 » 

10 bentry equ * 

11 ♦ ^ ^ 

12 do IIc'RDM 

13 Ida *X0100000a 
1t trb ProFlaq+S 
15 • 
1G atentrv equ * 

17 fi;i 

18 • 

19 old 

20 txa 

21 tay 

22 ♦ 

23 * If this is a PC oall, then get the address of the parm table 

25 

2G 

27 * 

28 

29 

30 

31 

32 

33 

34 

35 

3G 

37 

38 

39 • 

40 noplay equ • 

41 ♦ 

11 I ""f^f ^^"^ \^ ^^ important to have the Disk // enable lines 

4G do lie 

''^ Jsf WaltlWMOff ;Must preserve Y" 

48 fin ^ 

49 • 

50 • We can't really tolerate Interrupts in most of the code, so 

dl sable ' 

51 • 

^^ P^^P ;Save Interrupt status 

^^ , =^' ;No interrupts please 

55 • Preserve the zero page work area 
5G * 

57 Idx #ZPSlze-1 

58 pzp Ida 2eroPage,x 

59 pha 



Ida ProFlag,y 
bml noplay 

pla 

sta SHTempX.y 

clo 

ado #3 

tax 

pla 

sta SHTempY.y 

adc '0 

pha 

txa 

pha 



;Don't want decimal mode!! 

iReally want It In Y... no RDR ABS , Y ! 



;Get lo order 

;Keep lo parm address-1 

iLo order new return address 
;Get hi order address 
jKeep hi parm addr-1 

;Push back new return address hi 

iPush new return address lo 



Appf 
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CD78: 

CD79: 

CD7B: 

CD7B: 

CD7B: 

CD7B: 

CD7D: 

CD7D: 

CD7D: 

CD7D: 

CD7D: 

CD7D: 

CD7D: 

CD7D: 

CD7D: 

CD7F: 

CD80: 

CD81 : 

CD82: 

CD83: 

CD84: 

CD85: 

CD87: 

CD89: 

CD8B: 

CD8D: 

CD8F: 

CD90: 

CD91 : 

CD93: 

CD93: 

CD93: 

CD93: 

CD93: 

CD9e: 

CD98; 

CD9B: 

CD9B: 

CD9B: 

CD9B: 

CD9B: 

CD9E; 

CDA0: 

CDA3; 

CDAB: 

CDA5; 

CDA5: 

CDAB 

CDA7 

CDA9 

CDAB 

CDAC 

CDAE 

CDAF 

CDB0 

CDB2 

CDB4 

CDBS 



CA 

10 FA 



84 58 



(2) 

CD7S(3) 



C3) 



A5 43 

2A 

08 

2A 

2A 

28 

2A 

29 03 

49 02 

C0 04 

B0 02 

49 02 

AA 

E8 

86 43 



B9 73 
10 03 
4C 3F 



B9 F3 
85 54 
B9 73 
85 55 



CD7D 

(3) 
(2) 
C3) 
(2) 
C2) 
(4) 
(2) 
(2) 
(2) 
(2) 

CD8FC3> 
(2) 
(2) 
(2) 
(3) 



04 (4) 

CD9B(3) 
CE (3) 



CD9B 

05 (4) 
(3) 

06 (4) 
C3) 



:A0 01 

:B1 54 

:85 42 
:C8 

:B1 54 
:AA 
:C8 

:B1 54 

:85 55 

:86 54 



(2) 
(5) 
(3) 
C2) 
(5) 
(2) 
(2) 
(5) 
(3) 
(3) 



60 

61 

62 

63 

64 

65 

66 

67 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

I 10 

II 1 
112 
113 
114 
1 15 
1 16 
1 17 
1 18 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 



dex 
bpl 



pzp 



* Dkay, we're safe... now it's all right to store in zero page 

» 

sty Slot 
» 

ifeq IIc'ROM 
fin 
* 

* Now map any ProDOS unit references to our sequential ones. 

* The method is bizzare and magicians never reveal their secrets. 



al Iset equ 
Ida 
ro 1 
php 
rol 
r o 1 
pip 
rol 
and 
eor 

cpy 

bge 
eor 
allsetl tax 
inx 

s t X 



CMDUnit 



'«'%0000001 1 

«'%00000010 

#4 

allsetl 

#%00000010 



CMDUnit 



76543210 746 specify unit 

6543210X C<-7 

Save dr i ve num 

543210X7 C<-6 

43210X76 C6 is grp of 2) 

C<-7 

3210X767 

ProDOS only installs up to 4 

000000/67; 6 was /grpoftwo 

If in slot 1,2,or3 reverse grps of two 



; You got it 



• Now if this is through the ML I xfaoe, gotta copy stuff into the 

• send buffer from the parameter list. 

» 

Ida ProFlag,y 

bpl dar ni t 

jmp skipcopy 

« 

• Get the address of the in-line parameter table 



darnit equ * 

Ida SHTempX.y 

sta buffer 

Ida SHTempY.y 

sta buffer* 1 



;Get back the low part buff addr 
; and the hi part 



* Now pull out the command code, and the address of the parameters. 

;Stacked address is EA-1 

; N i ce 

;Get lo part of parmlist address 
; Save i t 

;Get hi part 



Idy 
Ida 


#1 
Cbuffer) 


y 


sta 


cmdcode 




i ny 
Ida 


(buffer) 


y 


tax 






iny 
Ida 


Cbuffer) 


y 


ate 


buffer+l 




stx 


buffer 





216 



A: Fi 
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CDB6: 

CDB6: 

CDB6: 

CDB6: 

CDB8: 

CDBA: 

CDBC 

CDBE 

CDC1 

CDC1 

CDC3 

CDC5 

CDC7 

CDC7 

CDC7 

CDC7 

CDC7 

CDC9 

CDC9i 

CDCB; 

CDCEi 

CDCF: 

CDD1 : 

CDD1 : 

CDD1: 

CDD1 : 

CDD1: 

CDD1 : 

CDD3: 

CDD5: 

CDDS: 

CDD5: 

CDD5 

CDD7 

CDDA 

CDDC 

CDDD 

CDDF 

CDE1 

CDE3 

CDE3 

CDE3 

CDE3 

CDEB 

CDE7 

CDE9 

CDECi 

CDEEi 

CDF1 I 

CDF1 ; 

CDF2: 

CDF4: 

CDF4: 

CDF6: 

CDF8: 

CDFA: 

CDFA: 

CDFB: 
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A9 01 
A6 42 
E0 0A 
90 03 
4C 0F 

A0 00 
B1 54 
85 5A 



A0 08 

B1 54 
99 42 
88 
D0 F8 



A5 43 
D0 6A 



(2) 
(3) 
(2) 

CDC1C3) 
CF (3) 

CDC1 

(2) 
CS> 
C3) 



CDC7 

(2) 

CDC9 

(5) 
CS) 
(2) 

CDC9C3) 



00 



C3) 

CE3Ft3) 



A6 42 
BD 86 
29 7F 
A8 

A9 04 
C4 5A 
D0 DB 



CF 



(3) 
(4) 
(2) 
(2) 
(2) 
C3) 
CDBE(3) 



:E0 05 
iD0 0A 
:A9 00 
:20 90 
A9 00 
4C 31 

8A 
D0 24 

A9 21 
A6 46 
D0 C4 



8A 
A6 58 



(2) 

CDF1t3) 

(2) 

CF C6) 

(2) 

CF (3) 

f2) 

CE18(3) 

(2) 
(3) 

CDBEC3) 

C2) 
(3) 



;Qrily valid codes are 0-9 

;=> at least he got that right 

;Gee, maybe we should promote this guy. 

;Set for Indct compare 
;Get * of parms? 



130 • Now buffer points to parmllst 

13^ * Check command type, and pldgeonhole the parmllst length 

133 Ida *BadCmd 

134 Idx cmdcode 

135 cpx #$A 

136 bit noeh 

137 Errorhltch jmp Error 

138 noeh equ • 

139 Idy #0 

140 Ida (buffer), y 
I'll 5ta Unit 

142 * 

143 * Now copy the bytes 

144 ♦ ' 

145 okaycnt equ • 

Itt , ^''y *>cmdlength-1 ;Alway5 copy the maximum 

14/ copyloop equ * 

Itl 1?^ (buffer), y ;Pull It out of their hat 

IZa !'^ cmdcode, y ;Stuff It Into mine 

1 be dey 

15^ , ^"^ copyloop ;Copy 'em all 

III * °^?^: ^^=.^^li^[ °f the PC could be making one of three calls 

54 With a unit number of $00, Control, Inlt or Status. Check for 
155 • these and do what is appropriate. 
1 56 * 

157 Ida CMDUnit 

158 ^ bne sklpcopy ;Never mind 

160 « Check the parameter count for this call to unlt#0 
1 b 1 * 



CMDCode 
parmc tab , x 
*$7F 

*BadPCnt 
Unit 
ErrorHl tch 



162 
163 
164 
1G5 
166 
167 
168 

169 » 

170 * Now service one of the three commands 

1/1 * 

*InltCMD 

no t 1 nl t 

'PowerReset 

AsslgnID 

*0 

5a2 



172 
173 
174 
175 



Idx 
Ida 
and 
tay 
Ida 
cpy 
bne 



cpx 
bne 
Ida 
jsr 



176 Aokay Ida 

177 imp 

178 * ' *^ 

179 notlnlt txa 
180 

181 • 

182 Ida 

183 Idx 

184 bne 

185 * 

186 txa 

187 Idx 



;Get the length this command 

;Force -> MSB 

;Hang on 

;Antic bad count 

;User'g pcount Is currently here 

;What a baby! 



; Not an Inlt call 

;Ju5t like powerup or reset key(//c) 

;Do a reset cycle 

;No error allowed 



bne maybectrl 



*BadCtl 
CMDSCode 
ErrorHl tch 



Slot 



;Equlv to 'cmp #StatusCMD' 

;Antic a non zero stat code 
;Stat unit*0 can only be code=0 

;Equlv to 'Ida #0' 



/ii3pendix 
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CDFDiAB 07 C2) 188 Idy *7 

CDFF:91 44 C6) 189 nlnl sta CCmdBuf f er 1 ) , y -.Clear some space 

CE01:88 (2) 190 dey 

CE02:D0 FB CDFFO) 191 bne nlnl 

CE04: 192 * 

CE04:BD F9 06 (4) 193 Ida NumDevi ces , x 

CE07:91 44 t6) 194 sta (CMDBuf f er 1 ) , y ;Stlck it where they want it 

CE09!C8 <2> 19B Iny 

CE0A! 196 * 

CE0A: 0001 197 do lie , . » * . 

CE0A:AD F9 04 (4) 198 Ida $4F9 \ I / c Port 1 interrupt status 

CE0D: 199 else 

CE0D: 201 fin 

CE 0D ' 2 2 * 

CE0D:91 44 (6) 203 sta {CMDBuf fer 1 ), y jStore PC interrupt status 

CE0F: 204 * 

CE0F:A9 08 (2) 205 Ida *8 , ^ , 

CE11:88 (2) 206 dey iA,Y has 0008; * bytes status 

CE12!20 F2 CF (6) 207 jsr squirrel 

CE15- 208 • 

CE15:4C EC CD (3) 209 jmp Aokay ;Sklp down Cup) with no error 

CE18! CE18 210 maybectrl equ * 

CE18:C9 04 C2) 211 cmp #ControlCMD 

CE1A:D0 0B CE27(3) 212 bne BUnlt iUnit #0 was a bad one 

CF1C' 213* 

CE1C:A6 46 (3) 214 Idx CMDSCode ; We allow two control calls for Unit*0 

CE1E:F0 0B CE2B(3) 215 beq enablnt ;0 means enable interrupts 

CE20icA C2) 216 dex ^. u, ■ t * 

CE21:F0 14 CE37<3) 217 beq dlsablnt ;1 means disable interrupts 

CE23:A9 21 t2) 218 Ida #badctl 

CE25- CE25 219 ErrorHitch2 equ * 

CE25:D0 97 CDBE(3) 220 bne ErrorHitch ;No other codes allowed 

CE27! 221 * 

CE27: CE27 222 BUnlt equ * . ,, u ,i ■**<! 

CE27:A9 11 <2) 223 Ida #badUnlt -.Dnly certain calls can have Unit*0 

CE29:D0 93 CDBE(3) 224 bne ErrorHitch ;Branch always 

CE2B: 225 * 

CE2B: 0001 226 do lie 

CE2B! CE2B 227 enablnt equ * 

CE2B:A9 C0 (2) 228 Ida #$C0 

CE2D:8D F9 05 (4) 229 sta »5F9 

CE30:A9 0F (2) 230 Ida #$0F 

CE32!0C 9A C0 C6) 231 tsb $C09A 

CE35:D0 05 CE3C(3) 232 bne aokayhitch 

CE37: 233 * 

CE37: CE37 234 disabint equ * 

CE37:A9 01 (2) 235 Ida *»01 

CE39:1C 9A C0 C6) 236 trb $C09A 

CE3C:4C EC CD (3) 237 aokayhitch jmp AOkay 

CE3F: 238 • 

CE3F: 239 else 

CE3F: 244 fin 

CE3F ■ 245 * 

CE3p! 246 * Okay, everything's all groovy. ProDDS re-enters here. 

QESfT; 247 • Check Unit number to be sure there is a corresponding device 

CE3Fi 248 • 

CE3F: CE3F 249 skipcopy equ * , , ^ u 

CE3F:A9 28 C2) 250 Ida *NoDrive ;Anticpate bad unit number 
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Protoc 


CE41 :A<t 


58 


(3) 


251 


CE43:BE 


F9 


06 (4) 


252 


CE46:E<1 


43 


(3) 


253 


CE<»8:90 


DB 


CE2SC3) 


254 


CE4A: 






255 


CE4A: 






256 


CE4A: 






257 


CE4A:A9 


09 


(2) 


258 


CE4C:85 


4D 


C3) 


259 


CE4E:A9 


00 


(2) 


260 


CE50:8S 


4E 


(3) 


261 


CEB2:85 


55 


(3) 


262 


CE54:A9 


42 


C2) 


263 


CES6:85 


54 


(3} 


264 


CES8: 






265 


CE58: 






266 


CE58: 






267 


CE58:A6 


58 


C3) 


268 


CE5A:BD 


73 


04 (4) 


269 


CE5D: 10 


13 


CE72C3) 


270 


CE5F: 






271 


CEBF: 






272 


CESF: 






273 


CE5F:A6 


42 


C3) 


274 


CE61:BD 


86 


CF (4) 


275 


CE64:29 


7F 


(2) 


276 


CE66:85 


5A 


(3) 


277 


CE68: 






278 


CE68: 






279 


CE68: 






280 


CE68:A9 


00 


C2) 


281 


CE6A:85 


48 


(3) 


282 


CE6C: 






283 


CE6C: 






284 


CE6C: 






285 


CE6C:A5 


42 


(3) 


286 


CE6E:D0 


02 


CE72(3> 


287 


CE70: 






288 


CE70:85 


46 


C3) 


289 


CE72: 






290 


CE72: 






2.91 


CE72: 






292 


CE72: 




CE72 


293 


CE72:A5 


5A 


<3) 


294 


CE74:A6 


43 


(3) 


295 


CE76:86 


5A 


(3) 


296 


CE78:85 


43 


C3) 


297 


CE7A: 






298 


CE7A:A9 


80 


(2) 


299 


CE7C:85 


SB 


(3) 


300 


CE7E: 






301 


CE7E:20 


8A 


CA C6) 


302 


CE81: 






303 


CE81:20 


EC 


CA C6) 


304 


CE84:B0 


46 


CECCO) 


305 


CE8G: 






306 


CE86: 






307 


CE8G: 






308 
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;Safe- If C clr then Z is clr 



* Set buffer and bytecount in anticpation of the inevitablt 

* SendPack. 

Ida *>cmdlength 

ata bytecountl 

Ida *<cmdlength 

sta bytecounth 

sta buf f ert 1 

Ida #>cmdcode 

sta buffer 

* 

* If it's a PC call, omit the next two steps 



Idx Slot 

Ida ProFlag,x 

bpl notstat 



;I5 it a call from ProDOS? 
;=> Statcode already set... 



* Need to generate a parameter count for a ProDOS call 



Idx CMDCode 

Ida ParmCTab.x 

and *$7F 

sta Unit 

* ProDDS always needs the highest blookno byte zeroed 

Ida #0 

sta CMDBlockS 

« 

* If this is a ProDOS status call, set stat code to zero 

« 

Ida CMDCode 

bne notstat ;=> Not status so forget it 
*lda 'SCDeviceStat ;A is already zero 

sta CMDSCode ;Store in command table 

» 

* Okay, finally send over the damn command 

* 

notstat equ * 

Ida Unit 

Idx CmdPCount 

s tx Unl t 

sta CMDPCount 



; Swap the Parmcount & unit* 
;Now they're correct 

;Bring all phases off 

;If not okay, skip to bus error 
* Now copy over the buffer address for any data xfer. 



Ida 


*cmdmar k 


sta 


WPacketType 


i = r 


ClrPhases 


Jsr 


SendPack 


bcs 


behltch 



npenoix A: 
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CE8G 
CE88! 
CE8A: 
CE8C; 
CE8E; 
CE8E; 
CE8E; 
CE8E; 
CE8E1 
CE90: 
CE93i 
CE9Si 
CE95: 
CE95i 
CE9Si 
CE97; 
CE99: 
CE99; 
CE99: 
CE99; 
CE9B: 
CE9D: 
CE9E: 
CE9F: 
CEA1 : 
CEA2: 
CEA3: 
CEA5: 
CEA7: 
CEA9: 
CEAA: 
CEAC: 
CEAE: 
CEB1 : 
CEB1 : 
CEB1 : 
CEB3: 
CEBS: 
CEB5: 
CEBS: 
CEB5: 
CEBS: 
CEB7: 
CEB9: 
CEBB: 
CEBB: 
CEBB: 
CEBB: 
CEBB: 
CEBB: 
CEBD: 
CEBF: 
CEBF: 
CEBF: 
CEC1 : 
CEC3: 
CEC3: 
CEC5: 



AS 44 
85 S4 
AS 45 
85 55 



A6 42 
BD 86 
10 3B 



E0 04 
D0 18 



C3) 
C3) 
(3) 
<3) 



C3) 

CF (4) 

CED0<3) 



C2) 

CEB1C3) 



A0 01 
B1 54 
AA 
88 

B1 54 
48 
18 

A9 02 
65 54 
85 54 
68 

90 13 
E6 55 
4C BF 



E0 02 
D0 06 



A9 00 
A2 02 
D0 04 



A6 47 
AS 46 



86 4E 
85 4D 



A9 82 
85 SB 



C2) 
(S) 
(2) 
(2) 
CS) 
(3) 
(2) 
<2) 
(3) 
(3) 
(4) 
CEBF(3) 
(5) 
CE C3) 

CEB1 

(2) 

CEBBC3) 



(2) 
<2) 

CEBFt3) 



CEBB 



C3) 
(3) 



CEBF 



<3) 
t3) 



(2) 
(3) 



CMDBuffer 
buffer 
CMDBuffertI 
buffer* 1 

Now for some commands, we have to send over a packet of data, too. 
See if this command is one of THOSE. 

cmdcode 

parmc tab , x 

noxtrasend ;Enooded in top bit 

The buffer address and bytecount depend on the call type. 



cpx 
bne 



309 Ida 

310 sta 

311 Ida 

312 sta 

313 * 
314 
315 

316 * 

317 Idx 

318 Ida 

319 bpl 

320 * 
321 
322 
323 
324 
32S 
326 
327 

328 Idy 

329 Ida 

330 tax 

331 dey 

332 Ida 

333 pha 

334 clc 

335 Ida 

336 adc 

337 sta 

338 pla 

339 boo 

340 Inc 

341 jmp 

342 * 

343 NOControl equ 



#Con t ro ICmd 
NOControl 



In the case of control, by teoount : "(buffer ) then buf f er : -buf f er +2 

;Get Hi order bytecount 



*1 

Cbuf f er ) ,y 



(buffer) ,y 



*2 

buffer 

buffer 

secondsend 
buffer* 1 
secondsend 



;Keep for later 



;Get back Lo order bytecount 
;Skip hi ord increment 

;Skip to store bytecount 



cpx 
bne 



#WriteCMD 
NQWBlock 



;Cheok for a writeblock 
iMust be control or write 



In the case of WriteBlock, the length is S12 and the buffer 
address is at buffer in the command table 



Ida 


*0 


Idx 


#2 


bne 


secondsend 



344 
345 
346 
347 
348 
349 
350 
351 
352 

353 * 

354 * For FileWrite, the buffer address is at CMDbuffer 

355 • and the length is at CMDblock. 

356 * 

357 NOWBlock equ » 

358 Idx CMDBlookh 

359 Ida CMDBlockl 

360 • 

361 secondsend equ * 

362 stx bytecounth 

363 sta bytecountl 

364 * 

365 Ida *datamark 

366 sta WPacketType ; Identify this as a data packet 



220 



Appei 
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CEC7; 
CEC7; 
CECA; 
CECCi 
CECCi 
CECEi 
CEDB: 
CEDa! 
CED0; 
CED01 
CED0: 
CED0! 
CED0: 
CED2; 
CED5! 
CED7; 
CED9: 
CEDE: 
CEDE: 
CEDD: 
CEDF: 
CEE1: 
CEE3: 
CEE3! 
CEE3: 
CEE3: 
CEE3: 
CEE6: 
CEE8: 
CEE8: 
CEE8: 
CEE8: 
CEEB: 
CEEE: 
CEEE: 
CEEE: 
CEEE: 
CEEE: 
CEEE: 
CEF0: 
CEF2: 
CEF4: 
CEF7: 
CEF9: 
CEF9: 

CEFB: 
CEFE: 
CF00: 
CF03: 
CF03: 
CF05: 
CF07: 
CF09: 
CF0E: 
CF0D: 
CF0D: 
CF0D: 
CF0D: 



20 DD CA (G) 
90 04 CED0<3) 

CECC 
A9 06 (2> 
D0 3F CF0Ft3) 



A4 58 
B9 73 
10 0C 
AS 42 
D0 08 

A9 45 
A2 00 

85 54 

86 55 



CED0 

C3) 

04 (4) 

CEE3(3) 

(3) 
CEE3(3) 

(2) 
C2) 
(3) 
(3) 



CEE3 
20 33 CE (6) 

E0 E4 CECC(3) 



20 50 CC 
20 F2 CF 



(6) 
(6) 



AS 42 C3) 

D0 IB CF0DC3) 
A6 58 C3) 
ED 73 04 (4) 

10 14 CF0DC3) 



AS 46 

9D F3 05 
AS 47 
9D 73 06 



C3) 

(5) 
(3) 
(5) 



AS 4S (3) 

29 10 (2) 

D0 04 CF0D(3) 

A9 2F C2) 

D0 02 CF0Ft3) 



367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 

412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 



j5r SendData 

bcc noxtraaend 

behltch eqa * 

Ida 'EusErr 

bne Error 



;This is the bus error hitch 



* On ProDQS status call, we've got to point the buffer pointer 

* correctly to zero page... it's the only case special case 

* (on Write, Format and Control no data comes back). 



noxtrasend equ * 
Idy Slot 
Ida 
bpl 
Ida 
bne 



ProF lag , y 
get resu Its 
cmdcode 
getresul ts 



Ida 
Idx 
5 ta 
stx 



#>CMDBufferh 
#<CMDBufferh 
buffer 
buffer* 1 



;Want status in these four 



* Please to be calling ReoeivePack 

iGet status byte (maybe read data too) 



getresults equ * 

jsr ReoPack 
bcs behitch 



* Figure how many bytes were sent and put that in X,Y temps 



Jsr Rcvcount 
j sr squirrel 



; Do the t imes 7 . . . 

iStore away count in SHTEMPs 



* For the ProDOS status call, we've got to look at the status byte 

* returned and return a DIP error if appropriate. 

* Also overwrite the X,Y temps with * blocks if this is a ProDOS 

* Stat call. 

;Is it a ProDOS status call 



iThis'U get loaded into the XY regs 
later 



Ida 


CMDCode 


bne 


noer ror 


Idx 


Slot 


Ida 


ProFlag , x 


bpl 


noer ror 


Ida 


CMDBlockl 


sta 


SHTempX.x 


Ida 


CMDBlookh 


sta 


SHTempY,x 


Ida 


CMDBufferh 


and 


'SVMaskl 


bne 


noer ror 


Ida 


'Offline 


bne 


Error 



jCheok status byte 
;No DIP 



* Now it's time to think about returning to the caller 

* Remember that ProDOS doesn't want to know about soft errors, 

* only fatal ones. If this is a ProDOS call, and the soft error 



A; Hfiiiwarc: 



07 PC. MAIN 



Protocol Converter / CBu5 Driver 



04-JUN-85 



PAGE 44 



04 



CF0D: 

CF0D 
CF0D 
CF0D 
CF0D 
CF0D 
CF0D 
CF0F 
CF0F 
CF11 
CF14 
CF15 
CF17 
CF17 
CF1A 
CF1C 
CF1C 
CF1E 
CF20 
CF22 
CF22 
CF24 
CF26 
CF28 
CF2A 
CF2C 
CF2E 
CF30 
CF30 
CF30 
CF31 
CF31 
CF33 
CF36 
CF3e 
CF36 
CF3e 
CF3e 
CF3e 
CF3e 
CF3S 

CF36! 



CF3e: i 
CF36:AD E8 C0 
CF39:2C ED 
CF3C:A9 2B 
CF3E:8D EF 
CF41 :EA 
CF42:EA 

EA 

EA 



A5 4D 

A4 58 
99 F3 
AA 
F0 1A 

BE 73 
10 15 

A2 00 
C9 40 
B0 0E 

A2 27 
C9 2B 
F0 09 
C9 28 
F0 05 
C9 2F 
F0 01 



8A 



A4 58 
99 73 



CF0D 

C3) 

CF0F 

(3) 
(5) 
(2) 

CF31(3) 



04 C4) 
CF31(3) 

(2) 
(2) 

CF30t3) 

(2) 
(2) 

CF31C3) 
(2) 

CF31(3) 
C2) 

CF31C3) 



CF30 



C2) 



CF31 



05 



C3) 
(5) 



C0 



C0 



C0 



CF43 
CF44 
CF45: 

CF45:AD EE 
CF48:29 20 
CF4A:D0 F9 
CF4C:A0 00 
CF4E:A2 60 
CF50:20 1F CC 



CF 



CF 



!1 
(4) 
t4) 
(2) 
C4) 
(2) 
(2) 
(2) 
(2) 

45 
C4) 
(2) 

45C3) 
<2) 
C2) 

ce) 



425 

426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 

466 

467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 



bit In the statbyte Is set, there IS NO error Cstatbyte is 

c leaped} . 

Also, ProDQS wants only I/O, Nrite Protect, No Device, Offline. 

If any other hard error comes from the device on a ProDOS call, 

map it to an I/O Error. (Gross me out.) 



noerror equ 
Ida 



Error 



equ 
Idy 
s ta 
tax 
beq 

Idx 
bpl 

Idx 
cmp 
bge 

Idx 
cmp 
beq 
cmp 
beq 
cmp 
beq 

storeaway e 
t xa 



3 tatby te 

« 

Slot 
Retry, Y 

sa2 

ProFlag,y 
sa2 

#0 

«'%01000000 

storeaway 

# I OEr r or 

#WriteProt 

sa2 

*NoDr Ive 

sa2 

#affLine 

SA2 

qu * 



sa2 



'.Need access to screenholes 
;Keep unadulterated error in shole 
;Set the Z flag 
jSpecial case the zero 

;Set N to ProDOS call or not 
;If PC call, no mapping occurs 

•.Assume a soft error 

^Soft error check 

;If $40 or bigger, map to zero 

;Now anticipate ProDOS I/O error 

; OK to return Write Protect 

; OK to return Drive disconnected 



;Use the default value 



equ 
Idy 
5 ta 



* If this 

* former d 
» to a lit 

* internal 

* mode can 
» if the t 

* a Rev A 
changes 

* are di sa 
Mac . 

do 
Ida 
bit 
Ida 
s ta 
nop 
nop 
nop 
nop 
waitoff equ 
Ida 
and 
bne 
Idy 
Idx 



Slot 

SHTemp1,y ;Keep in soreenhole 

5 the //c version, we need to reset the IWM to its 
isk // state. This is done by setting the mode register 
tie known Cand less documented) mode which speeds up the 
motor timeout. When the motor enable has timed out, 
be set back to zero. This method is necessary because 
imer is enabled within the timeout period, the motor on 
IWM pops on for the full timeout period (since mode 



bled when the motor is 



I know, it's bizzarre. Blame 



lie 

monclr + $60 
165et+$60 
*$2B 
17set+$60 



17clr+$60 

#«20 

wai tof f 

#0 

*$60 

SetlWMode 



Motor off 

Into mode reg access mode 

This is the magic "speed up" value 

Throw into mode register 

You're supposed to wait a while 



iWait 'til motor off 



;Now set the reg back to $1 
; IWM's in slot 6 
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CF53; 
CFS6; 
CF59: 
CF5C; 
CFBEi 
CFSEi 
CFSEi 
CF5E: 
CF5E: 
CF60; 
CFei : 
CFG3; 
CF64: 
CF66: 
CF68: 
CFGS: 
CF68: 
CF68: 
CF68: 
CF69: 
CF6C: 
CF6D: 
CF70: 
CF71 : 
CF74: 
CF7S: 
CF76: 
CF77: 
CF79: 
CF7A: 
CF7A: 
CF7A: 
CF7A: 
CF7B: 
CF7E: 
CF80: 
CF81: 
CF84: 
CF84: 
CF85: 
CF86: 
CF86: 
CF86: 
CF86: 
CF86: 
CF86: 
CF87: 
CF88: 
CF89: 
CF8A: 
CF8B: 
CF8C: 
CF8D! 
CF8E: 
CF8F: 
CF90: 
CF90: 



AD EC 
AD E2 
AD E6 
A4 58 



A2 00 
68 

95 40 
E8 

E0 1C 
90 F8 



C0 C4) 

C0 <4) 

00 C4) 

(3) 



(2) 
(4) 
t4) 
(2) 
(2) 
CFG0(3) 



28 

B9 F3 

AA 

B9 73 

48 

B9 73 

A8 

18 

68 

F0 01 

38 



08 

2C 78 
70 04 
28 
4C 84 



05 



05 



06 



28 
60 



03 
03 
83 
01 
83 
01 
01 
01 
03 
83 



(4) 
C4) 
<2) 
(4) 
(3) 
t4) 
(2) 
C2) 
(4) 

CF7A(3) 
t2) 

CF7A 

0001 

C3) 

04 (4) 

CF84C3> 

C4) 

C7 (3) 

CF84 

C4) 
C6) 



CF8G 



483 

484 

485 

486 

487 

488 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

525 

526 

527 

528 

529 

530 

531 

532 

533 

534 

535 

536 

537 

538 

539 

540 



Ida 


16clrt$60 


Ida 


calclr +$60 


Ida 


l5trbclr+$6 


Idy 


Slot 


fin 





;Need Slot in Y 



restore our zero page area. 



Idx 


#0 




pla 






5ta 


zeropage 


X 


i nx 






opx 


#ZPSize 




bit 


rzp 





rzp 



* We're into the stretch! Restore interrupt mask, load X, Y, and A 

* and set the carry if the error byte is non-zero. 



pip 
Ida 
tax 
Ida 
pha 
Ida 
tay 
c 1 c 
pla 
beq 
sec 
f inaisk ip equ 



SHTempx , y 
SHTempI ,y 
SHTempy , y 

finalskip 
* 

IIc'ROM 

ProFlag+5 
ickl 

SWRTS2 



do 

php 

bit 

bvs 

pip 

ickl equ 
pip 
rts 
else 
fin 



parmctab equ * 

dfb %00000l 

dfb %00000l 

dfb X10000( 

dfb X000001 

dfb /£10000i 

dfb %00000i 

dfb %00000E 

dfb %00000f 

dfb X00000f 

dfb %10000E 



1 1 
1 1 
11 
01 
11 
01 
01 
01 
11 
11 



^Restore interrupt flag 
;Get X value 

jGrab the error result code 

Pull out the Y value 
No more access to screenholes 
Anticipate zero result code 
Pull back result code 
Return with carry clear 
Some type of error 



Save carry and Z flag 

Ick - ProFlag is fixed in lie 

If bit 6=1, then return to alt ROM 

Vclr so return across ROM bank bdy 



;Flag5 set correctly again 



Status: 3 parms/no data send 
Read: 3 parms/no data send 
Write: 3 parms/data send 
Format: 1 parm /no data send 
Control: 3 parms/data send 
Init: 1 parm /no data send 
Open: 1 parm /no data send 
Close: 1 parm /no data send 
CharRead: 3 parms/data send 
CharWrite: 3 parms/data send 
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CF9B: 

CF90: 

CF90: 

CF91 : 

CF94: 

CF9B: 

CF96: 

CF96: 

CF96: 

CF96: 

CF98: 

CF99: 

CF9B: 

CF9C: 

CF9E: 

CF9F 

CFA1 

CFA1 

CFA1 

CFA1 

CFA3 

CFA5 

CFA7 

CFA9 

CFAB 

CFAD 

CFAD 

CFAD 

CFAD 

CFAF 

CFB1 

CFB3 

CFBS 

CFB7 

CFB9 

CFB9 

CFBC 

CFBC 

CFBC 

CFBC 

CFBC 

CFBE 

CFC0 

CFC2 

CFC4 

CFCe 

CFC6 

CFC9 

CFCB 

CFCB 

CFCD 

CFD0 

CFD0 

CFD3 

CFD5 

CFD7 

CFD7 

CFD7 



CF90 



48 

20 60 CA 

68 

AA 



:A5 42 
:48 

:A5 43 
:48 

:AS 46 
:48 
:86 46 



A9 05 
85 42 
A9 00 
85 SA 
A9 02 
85 43 



:A9 42 
:85 54 
!A9 00 
:85 55 
:A9 80 
:85 5B 

:20 8A CA 



(3) 
(6) 
(4> 
C2) 



(3J 

(3> 
£3> 
(3> 
(3) 
(3> 
(3) 



(2> 
C3) 
(2) 

£3) 
(2) 
(3) 



(25 

(3) 
£2) 
£3> 
£25 
(3) 

(6) 



:E6 SA 

:A9 09 

:85 4D 

:A9 00 

:85 4E 

.■20 86 

:90 05 



C6 5A 
4C D7 

20 E6 
A5 4D 
F0 E5 



CFBC 

£5) 
£2) 
£3) 
£2) 
£3) 

C8 £6) 

CFD0£3) 



CF 



C9 



£5) 

(3) 

£6) 

£3) 

CFBC(3) 



542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 



Ass IgnlD equ * 
pha 

jsr resetchain 
p la 
tax 



; Save the init code 

;Re5et all of those things 

; Save I ni tCode 



* Save the command code, unit, and init code 'cause we'll trample 

* 'em . 



;Store away the type of INIT 



Ida 


CMDCode 


pha 
Ida 


CMDPCount 


pha 
Ida 


CMDSCode 


pha 
stx 


CMDSCode 



Set up to send DefID command packets 



Ida 


#InitCmd 


sta 


CMDCode 


Ida 


#0 


sta 


Unit 


Ida 


#2 


sta 


CMDPCount 



; ^ parms in Init call 



* Point the buffer pointer 



Ida 


#5.CMDCode 


sta 


buffer 


Ida 


«'<CMDCode 


sta 


buffer*1 


Ida 


■^cmdmar k 


sta 


NPacketType 


jsr 


ClrPhases 



;Mal<e sure phases are off 



Send an ID for the next device in the chain 



mordevices equ ^ 
inc Unit 
Ida ^>cmdlength 
sta bytecounti 



Ida 

sta 

jsr 
bcc 

dec 

mdev2 Jsr 
Ida 



^<cmdlength 
bytecounth 

SendOnePac k 
mdev2 

Unit 
mdev 1 

Rece i vePack 
s tattayte 
mordevi ces 



;ReceivePack scrambles count 



;Send the command 

;If okay, skip to get response 



;Get the response 



Okay, we done last device. Squirrel away the number of devices. 



A|")i)e)"i(!ix 



ii'inware Lisiing 
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CFD7 

CFD9 

CFDB 

CFDE 

CFDE 

CFDE 

CFDE 

CFDF 

CFE1 

CFE2 

CFE4 

CFE5 

CFE7 

CFE7 

CFE7 

CFE7 

CFE8 

CFE8 

CFE8 

CFE8 

CFE8 

CFE8 

CFE8 

CFE8 

CFEA 

CFEC 

CFEF 

CFF2 

CFF2 

CFF2 

CFF2 

CFF2 

CFF4 

:FF7 

CFF8 

CFFB 

CFFC 

CFFC 

CFFC 

CFFC 

CFFC 

CFFC 

CFFC 

CFFC 

CFFC 

CFFC 



68 
85 
68 
85 
68 
85 



60 



5A (3) 
58 (3) 
F9 06 <5) 



46 
43 
42 



C4) 
(3) 
C4) 
(3) 
C4) 
(3) 



0001 



(6) 



A2 
A9 
9D 
4C 



A6 
9D 
98 
9D 
60 



0001 
CFE8 



05 t2) 

40 (2) 

73 04 (5) 

55 CD (3) 



CFF2 



58 

F3 05 



73 06 



C3) 
(5) 
(2) 
CS) 
C6) 



0001 



CFFC 
0001 



600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

142 

143 

145 

146 

147 

148 

153 

154 



mdevi Ida Unit 
Idy slot 
sta NumDevices.y jDevlces out there 

• Recover the scrambled ProDOS parms 

pla 

sta CMDSCode 

pla 

sta CMDPCount 

pla 

sta CMDCode 

Ifeq IIc^RDM 
fin 

rts 



do I Ic 
AppleTal kEntry equ * 

* 

* This is an entry for the //c AppleTalk stump. 



Idx #5 

Ida #201000000 

sta ProFlag, x 

jmp atentry 

fin 



squirrel equ * 

Idx Slot 

sta SHTempX.x 

tya 

sta SHTempY,x 

rts 



ifeq nc''ROM 
fin 

equ * 

ifeq IIc"ROM 

fin 



iPC call & return to alt RDM 
;Just like normal 



;If not //c ROM, pad bytes 
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C90E 


ACHE1 


CD8F 


ALLSET1 


?CD7D 


ALLSET 


?CB04 


ALTSENDPILE 


CE3C 


AOKAYHITCH 


CDEC 


AOKAY 


CFE8 


APPLETALKENTRY CF90 


ASSIGNID 


CD55 


ATENTRY 


?FABA 


AUTOSCAN 


CB61 


AUXPTRINC 


56 


AUXPTR 


? 4e: 


AUXTYPE 


? 2D 


BADBLDCK 


01 


BADCMD 


? 22 


BADCTLPARM 


21 


BADCTL 


04 


BADPCNT 


11 


BADUNIT 


?E000 


BASIC 


C52F 


BC1 


CECC 


BEHITCH 


CD50 


BENTRY 


CC28 


BIZ 


0011 


BMSGLEN 


C521 


BOQTC 


?C514 


B00TCASE5 


CS23 


BOOTCODE 


C552 


BOOTFAIL 


C55F 


BOOTMSG 


07DB 


BOOTSCRN 


CS70 


BOOTTAB 


32 


BSYTQI 


0A 


BSYTa2 


54 


BUFFER 


56 


BUFFER2 


CE27 


BUNIT 


06 


BUSERR 


? 40 


BUSHOG 


? 08 


BYTECMP 


4D 


BYTECQUNT 


4E 


BYTECOUNTH 


4D 


BYTECOUNTL 


?C500 


CS00ORG 


C082 


CA1CLR 


C083 


CA1SET 


C084 


CA2CLR 


C085 


CA2SET 


CC2C 


CAREFUL 


C8A5 


CHAINUNBSY 


40 


CHECKSUM 


? 24 


CH 


CFFF 


CLEARIOROMS 


CA8A 


CLRPHASES 


47 


CMDBLOCKH 


46 


CMDBLOCKL 


48 


CMDBLOCKS 


? 46 


CMDBLOCK 


45 


CMDBUFFERH 


44 


CMDBUFFERL 


44 


CMDBUFFER 


42 


CMDCODE 


09 


CMDLENGTH 


?C58A 


CMDLIST 


80 


CMDMARK 


43 


CMDPCOUNT 


46 


CMDSCODE 


? 49 


CMDSPARE1 


? 4A 


CMDSPARE2 


43 


CMDUNIT 


C55D 


COMA 


80 


COMMRESET 


04 


CDNTROLCMD 


CDC9 


COPYLOOP 


?FDED 


COUT 


CD47 


CSERR0R5 


10 


CSUMERR 


? 25 


CV 


CD9B 


DARNIT 


82 


DATAMARK 


C999 


DATDQNE 


C9C3 


DBERROR 


?CBE1 


DETTOPBITS 


? 50 


DEVICEID 


CE37 


DISABINT 


CBS5 


DIV7TAB 


CB9E 


DIVIDE 1 


CBA7 


DIVIDE2 


CB8E 


DIVIDE3 


CB95 


DIVIDE4 


CBB0 


DIVIDES 


?CB64 


DIVIDE7 


CD09 


DQNEB 


CE2B 


ENABINT 


?C08A 


ENABLE1 


C08B 


ENABLE2 


CftSa 


ENABLECHAIN 


CD4B 


ENTRY 


CF0F 


ERROR 


CDBE 


ERRQRHITCH 


CE25 


ERR0RHITCH2 


CF7A 


FINALSKIP 


? 03 


FORMATCMD 


CEE3 


GETRESULTS 


CA47 


GOBI 


?C9E6 


GRABSTftTUS 


4B 


GRP7CTR 


CD49 


GSERRDR5 


CBE8 


GTBQB 


? 51 


HOSTID 


CD33 


ICBT1S 


CD2D 


ICBT5 


CF84 


ICK1 


01 


lie 


05 


INITCMD 


27 


lOERROR 


0080 


IWM 


07 


IWMMODE 


C08C 


L6CLR 


C08D 


L6SET 


C08E 


L7CLR 


C08F 


L7SET 


? 68 


LASTONE 


CBCF 


LASTPASS 


00 


LOC0 


? 01 


LOCI 


?CD36 


LSTBSYWAIT5 


C086 


LSTRBCLR 


C087 


LSTRBSET 


C9E3 


MARKERR 


CE18 


MAYBECTRL 


CFD7 


MDEV1 


CFD0 


MDEV2 


C5BD 


MLIENTRY 


CB5B 


M0D7TAB 


C088 


MDNCLR 


C089 


MONSET 


C554 


MORCHRS 


CFBC 


MDRDEVICES 


07F8 


MSLOT 


4D 


NEXT1 


4E 


NEXT2 


50 


NEXT4 


4D 


NEXT 


4F 


NEXT3 


51 


NEXT5 


52 


NEXT6 


53 


NEXT7 


CDFF 


NIN1 


01 


NOANSWER 


CB7B 


NOAUXPTR 


CEB1 


NOCONTROL 


28 


NDDRIVE 


CDC1 


NDEH 


CF0D 


NOERROR 


? IF 


NOINT 


? 02 


NDMARK 


20 


NOPACKEND 


CD6E 


NOPLAY 


CDF1 


NDTINIT 


CE72 


NOTSTAT 


CEBB 


NOWBLOCK 


CED0 


NOXTRASEND 


CD43 


NPENDERR5 


06F9 


NUMDEVICES 


4C 


ODDBYTES 


2F 


OFFLINE 


?CDC7 


OKAYCNT 


CA7C 


DNEMS1 


CA7A 


ONEMS 


C3 


PACKETBEG 


C8 


PACKETEND 


CF86 


PARMCTAB 


C9BE 


PATCH1 


? AS 


PBBVALUE 


? FF 


PBCVALUE 


00 


PCID2 


BF 


PDIDBYTE 


CB4F 


PDIV7TAB 


CB52 


PMaD7TAB 


? 52 


POINTER 


00 


PQWERRESET 


C9D6 


PREAMBLE 


?CBB0 


PRECHECK 


C50A 


PRODOSENTRY 


0473 


PROFLAG 


CD75 


PZP 


0BB8 


RC1 


05 


RC2 


C583 


RCODE 


4B 


RCVBUF 


CC50 


RCVCOUNT 


C9F8 


RDH1 


CA02 


RDH2 


CA10 


RDH3 


CD39 


RDH45 


?CA0E 


RDH5 


CD1E 


RDHA5 


01 


READCMD 


C9E6 


RECEIVEPACK 


CB33 


RECPACK 


C080 


REQCLR 


C081 


REQSET 


CA60 


RESETCHAIN 


C57e 


RESET 


0573 


RETRY2 


04F3 


RETRY 


01 


ROM 


? 4F 


RPACKETTYPE 


CB3A 


RPK1 


CB4E 


RPOUT 


C578 


RST1 


CF60 


RZP 


CF31 


SA2 


CB76 


SAP1 


? 00 


SCDEVICESTAT 


? 01 


SCGETDCB 


? 03 


SCGETDEVINFO 


0473 


SCHOLES 


C99D 


SCM1 


? 02 


SCRETNLSTAT 


C9CF 


SD10 


C9B2 


SD7 


C9C9 


SD9 


CAEB 


SDOUBT 


CEBF 


SECONDSEND 


CA51 


SEND80 


CAS3 


SENDBYTE 


CADD 


SENDDATA 


C886 


SENDONEPACK 


CAEC 


SENDPACK 


CB00 


SENDPILE 



226 



ApjJOlKll 



jsting 
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CC1F 


SETIWMODE 


7FE89 


SETKBD 


7FE93 


SETVID 


CA9A 


SETXN0 


CA9D 


SHIFT1 


CAAD 


SHIFT2 


CABD 


SHIFTS 


CACD 


SHIFT4 


0B73 


SHTEMP1 


05F3 


SHTEMPX 


0673 


SHTEMPY 


C927 


SKIP1 


C929 


SKtP2 


C963 


SKIP3 


C965 


SKIP4 


CE3F 


SKIPCOPY 


58 


SLOT 


CC72 


SLDTDEPRD 


C8E8 


S0B1 


C8F9 


S0B2 


C300 


S0B3 


7 67 


SDFTERROR 


40 


SOFT 


CB0D 


SPILE1 


CB32 


SPILOUT 


CFF2 


SQUIRREL 


C8AF 


SSB 


C8B2 


SSD 


70100 


STACK 


CA34 


START0 


CA3C 


START1 


7CC72 


START2S 


C903 


START 


CA4E 


START2 


CC7C 


START35 


4D 


STATBYTE 


? 81 


STATMARK 


IE 


STATMTO 


? 00 


STATUSCMD 


CF30 


STOREAWAY 


CC0B 


SUN1 


CC02 


SUN2 


7CC00 


SUN 


CC1E 


SUNS 


0778 


SVBCH 


0GF8 


SVBCL 


10 


SVMASK1 


C797 


SWPROTO 


C784 


SWRTS2 


7C9D7 


SYNCTAB 


CC66 


T71 


CC6F 


T72 


59 


TBODD 


59 


TEMP 


60 


THEOFF 


7C000 


THEORG 


CCS9 


TIMES7 


41 


TDPBITS 


C899 


UBSY1 


5A 


UNIT 


71000 


VERSION 


7FC22 


VTAB 


CC35 


WAITINMOFF 


CF45 


WAITOFF 


? 04 


WASRESET 


7C9E2 


WASTE12 


C9E1 


WASTE14 


7C9E0 


WASTE16 


7C9DF 


WASTE18 


7C9DC 


WASTE32 


CC3E 


WIWM1 


CC4B 


WIWM2 


5B 


WPACKETTYPE 


02 


WRITECMD 


CB64 


WRITEPREP 


2B 


WRITEPROT 


CBBC 


X0R1 


7CBB9 


X0R2 


CBD5 


X0R3 


CBDC 


X0R4 


CBCD 


X0R5 


CA73 


YMSWAIT 


40 


ZEROPAGE 


1C 


ZPSIZE 


7CFFC 


zzzzz 














♦* SUCCESSFUL ASSEMBLY : =» 


NO ERRORS 










*• ASSEMBLER CREATED ON 30-APR-85 22; 


:46 








*» TOTAL LINES ASSEMBLED 


3969 










** FREE SPACE PAGE 


COUNT 


70 
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SOURCE 
INCLUDE 
INCLUDE 
INCLUDE 

0000 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



FILE #01 =>INCLUDES.2CR0M 
FILE #02 ->APTflLK.2CVARS 
FILE #03 =>APTALK.C700 
FILE #04 ->APTALK.ROMSTUFF 



2 ##•#*##«###*#»»##*»*#########»»####»»#»»»»#########«## 

3 » • 

4 * AppleTalk lie • 
B • » 

6 • 

7 » 

8 * 

9 * 
10 * 
1 1 * 

12 * 

13 * 

14 *««««««»»#««#*«««««*#««««*«««««»««««««««««««»««««««««« 



INCLUDES File 

by 
Fern Bachman 

Copyright Apple Computer, Inc. 1985 
All Rights Reserved. 



0000 
0000 
0000 



16 * This file contains the Includes necessary to 

17 * generate the AppleTalk lie code which goes In the 

18 * lie ROM. 



900: 
900: 



0002 



20 
21 



XG502 
MSB ON 



jAUow 65C02 opcodes!! 



0000: 



23 



INCLUDE APTALK.2CVARS 



228 



irraware ijstins 



02 APTALK.2CVARS fippleTalk //c Variables. 



22-APR-8S 1G:01 PAGE 2 



0000 



0000 
0000 
0000 
0000 



0000 
0000 



0000: 



0000 
0000 
0000 
0000 



3 *ft##«*»»««»»»»»«-B»«ft«««ft**«-«ft 

5 * 



&*»#**«■*»#« 



6 

7 

8 

9 

10 

1 1 

12 

13 

14 

IS 



AppleTalk //c Protocol Converter 
Var i ab 1 e s 

by 



Fer 



Bachman 



Copyright Apple Computer, Inc. 1985 
All Rights Reserved. 



t»»#ft#»#«««»«»«»#«ftft««ftft{i 



f««»ft4*#««ii»«* 



*fitt**ft##««e#»« 



17 * Apple //c zero page used at boot and not restored. 

0008 19 ZP8 EQU $8 ;Used and not restored 

21 * AppleTalk //o Converter Box stuff 

0081 23 DIAGCMD EQU $81 ;Dlag call command # 

25 * The following table contains the only 

28 » valid CODESCMD's recognized by the 

27 * AppleTalk//o box when using the protocol 

28 * converter's STATUS command. 



0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



30 • $0=Short status request 

31 * $1=-Return DCB info 

32 » $2=NENLINE Info 

33 • $3=Return DIB 

0004 34 CMDCINIT EQU «4 

0005 35 CMDCSTATUS EQU «S 

0006 36 CMDCREADREST EQU $6 

0007 37 CMDCREADPROT EQU $7 

0008 38 CMDCDIAG EQU «8 

0009 39 CMDCREBDOT EQU $9 
000A 40 CMDCID1 EQU $A 

41 • $B=AppleTalk ID call 2 



$4"AppleTalk Inlt command 

$5=AppleTalk Status command 

$6=AppleTalk Readrest cmd 

$7"AppleTalk Readprot cmd 

$8=AppleTalk Dlag command 

$9=AppleTalk Reboot command 

$A-AppleTalk ID call 1 



0000: 
0000: 



0000: 
0000: 



0000 
0009 



43 * Protocol converter commands used by the 

44 * AppleTalk lie firmware. 



46 PCSTATUSCMD EQU $0 

47 PCWRITECMD EQU $9 



;Prot Conv status command 
;Prot Conv write command 



0000 
0000 
0000 
0000 

0000: 



0000 



49 » RELVERNUM is the version number 

50 « for 65C02 RELease VERsion NUMber . 

51 * It must be kept updated as this product 

52 * is updated. 



54 RELVERNUM EQU 



;Relea5e version ^« 



0000: 



56 



STATBYTE codes 
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B2 flPTALK.aCVARS AppleTalk lie Variables. 
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0000: 

0000: 
0000: 

0000 
0000 
0000 
0000 
0000 



00A8 



00B4 
00B5 
00BF 
00C6 
00C2 



58 NODEVCON EQU 



$28+$80 



;Dev to access not connected 



60 * AppleTalk specific error codes for STATBYTE 

61 • used by the AppleTalk lie firmware. 



63 NQUNIQUEID EQU $80t$30+$04 

61 BYTEGTR603 EQU $80+$30+$0S 

6B LASTPACKET EQU $80+$30+$0F 

66 ID1 EQU 'F 

67 ID2 EQU 'B 



;No unique node addr found 
;* bytes to send >603 
jLast packet in series 
; ID bytel for finding ApTalk 
; ID byte2 for finding ApTalk 



0000: 
0000: 



0004 
0006 



69 PCQUNTW EQU 

70 PC0UNTS4.B EQU 



$4 
$6 



;Write call PCOUNT 

;Status call PCOUNT for 4-B 



0000: 

0000: 

0000 
00C0 
00C0 
00C0 
00C1 
00C2 
00C4 
00C4 
00C5 
00C5 
00C5 
00C6 
00C6 
00C7 

00C9: 
00CA: 

00CB: 

00CB: 

0000: 



0039 



00C0 
00C0 
0001 
0001 
0002 
00C4 
0001 
00C5 
00C5 
0001 
00C6 
0001 
0002 

0001 
0001 

000B 

0002 



72 * Apple lie zero page usage 
74 KSWH EQU $39 



76 
77 

78 ZP2CUSE 

79 PARAMNUM 

80 NUMUNIT 

81 PTRBUFF 

82 CODECMDS 

83 NUMLOWRITE 

84 BYTELONUM 
8B NUMHIWRITE 

86 BYTEUSER 

87 BYTEHINUM 

88 TYPEWRITE 

89 TESTTMP 

91 ADDR0 

92 ADDR1 



DSECT 

ORG 

EQU 

DS 

DS 

DS 

EQU 

DS 
EQU 

EQU 
DS 
EQU 
DS 
DS 

DS 
DS 



$C0 

1,0 
1,0 
2,0 

ft 

1,0 



1 ,i 
1 ,f 



94 ZP2CUSELEN EQU •-ZP2CUSE 
96 BDDTIT DS 2,0 
98 DEND 



I nput hook hi byte 



Number of parameters 
Unit number 
Buffer pointer 
Command code 

* of bytes to write lo byte 

* of bytes to read from box 

* of bytes to write hi byte 
User info byte 

* of bytes to read from box 
Write type code 

Diag read from address 

;Used as temp and restored 
sUsed as temp and restored 

;# of bytes used in lie zpage 

;Boot prog strt adr 



100 * AppleTalk lie non zero page usage 



0000 


03F2 


102 


0000 


07FE 


103 


0000 


047F 


104 


0000 


077F 


10B 


0000 


07FF 


106 


0000 


0478 


107 


0000 


07F8 


108 


0000 


C7D3 


109 


0000 


C784 


110 


0000 


C883 


111 


0000 


FB2F 


112 



SQFTEV EQU 
APTALKUNIT EQU 
SCRNHOLE0 EQU 
SCRNH0LE1 EQU 
SCRNHDLE2 EQU 
SCRNTMP0 
MSLOT 
ALTROMSW 



EQU 
EQU 
EQU 



MAINROMSW EQU 



«3F2 

$7FE 

*47F 

$77F 

$7FF 

$478 

$7F8 

$C7D3 

$C784 



Reset vector 

Unit * screen hole 



lUnit * screen hole 
iDRIVERFLAG placed here 
iPrint drvr *>start-1 
;Print drvr *<start-1 
;Temp use only 



ALTPRCNVENTRY EQU $C883 



INIT 



EQU 



$FB2F 
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02 APTALK.2CVflRS AppleTalk lie Variables. 
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0000 



NEXT OBJECT FILE NAME 

C700: C70B 24 
C70B: 25 



FC58 


1 13 


HOME 


EQU 


$FC58 


FE84 


114 


SETNDRM 


EQU 


$FE84 


FE89 


115 


SETKBD 


EQU 


$FE89 


FE93 


11G 


SETVID 


EQU 


$FE93 



IS APTALK.2CRaM.0 
ORG $C700 
INCLUDE APTALK.C70 



jClear screen 
;Normal char display 
;Keyboard Is input device 
;Video is output device 



;Cn00 page for lie goes here 



Appendix A: Firmware Listing 



03 APTALK.C7a0 



AppleTalk//c C700 Rtns 
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0700 
C700 
C700 
C700 
C700 
C700 
C700 
C700 
C700 
C700 
C700 
C700 
C700 



»«««««««««*«*««»*«««««#*««««*«««#«««««««««««»««««««« 



4 
5 
6 

7 

8 

9 
10 
11 

12 * * 

13 * Copyright Apple Computer, Inc. 1985 * 

14 * All Rights Reserved. » 

15 * • 
1g •#»#»#«*»#•#»»•»####»»»»####«»»#•#####»#####•##»##•»»# 



AppleTalk //c 
$C700 Routines 

by 

Fern Bachman 



C700 
0700 
0700 
0700 
0700 
C700 
0700 
0700 
0700 
0700 
0700 
C700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 
0700 



C700:2C 03 C7 



0703: 

0703:70 

0705: 

C70S:38 

0706:90 

0707: 

0707: 18 



1B 



0703 
0720 



18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



Entry at tC700 means that the user wants 
to initialize the printer driver Interface 
if one is loaded into main memory. 
To determine whether a driver is available 
or not we must perform the following steps; 

1. Determine which slot we are in to get $Cn. 

2. Test the 1st screen hole $3B8+$Cn to verify 
that it is $Cn C$Cn is the flag Indicating 
a driver has been Installed.) 

If a driver is not available the monitor ROM 
is mapped in and a JMP to the monitor RESET 
routine is executed. 

If a driver is available we pass data to is 
in the following form; 

Y ■ user Y 

X " user X 

A • user A 

P " Print character status 

V»1 if Init printer driver requested 
C"1 if input to printer 
0=0 if output to printer 
The driver can test the input/output hooks hi 
bytes to determine if the call is from BASIC or 
from machine language. If $37 is $Cn then the 
user did a PR*n. If $39 is $Cn then the user 
did a IN*n. If the hooks do not have $Cn as 
the high byte then the user entered from 
machine language. It is up to the driver to 
correctly observe this protocol. 



52 

53 TOSETV 

54 



BIT TOSETV 

EQU * 

BVS BASICENT 



55 *BASICINPUT EQU • 

56 SEC 

57 DFB $90 

58 *BASICOUTPUT EQU * 

59 CLC 



;Bit here to set 'V 

;BASIC wants char if here 

;Identlfier byte '1 ($38) 

;B0C opcode 

;BASIO sends char If here 

; Identifier byte #2 ($18) 
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03 APTALK.C700 



AppleTaU//c C700 Rtn5 
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C708 


B8 


C709 


S0 15 


C70B 




C70B 


01 


C70C 




C70C 


9B 


C70D 


1C 


C70E 


1C 


C70F 


1C 


C710 


1C 


C711 


88 


C712 




C712 




C712 





C720 



C712: 

C712 
C712 
C712 
C712 
C712 
C712 
C712 
C712 
C712 
C712 
C712 



60 




CLV 




61 




BVC 


BASICENT 


63 


•GENERIC 


EQU ♦ 




64 




DFB 


$01 


65 


•DEVSIG 


EQU * 




66 




DFB 


$9B 


67 




DFB 


>PASERR 


68 




DFB 


>PASERR 


69 




DFB 


>PASERR 


70 




DFB 


>PASERR 


71 




DFB 


$88 



jClear V If entered near here 
Skip PASCAL protocol stuff 

PASCAL generic sig byte 

9=bus card//B=Apple tech ID 

Offset to PASCAL err rtne 
Offset to PASCAL err rtne 
Offset to PASCAL err rtne 
Offset to PASCAL err rtne 
<>0 if no offsets follow 

73 * The entry point APPLETALK must appear at 

74 * $Cn12 in this and all future AppleTalk cards 

75 * for the Apple // product line. 

77 •AppleTalk Call 

79 * LDY #<PARAMLST 

80 * ;Y must contain hi byte of parameter list 

81 * LDX $>PARAMLST : 

82 * ;X must contain lo byte of parameter list 

83 * LDA *$Cn 

84 • ;A must contain the sit * of the AppleTalk card+$C0 
as * JSR APPLETALK 

86 • jCall the interface (in ROM in //c and in RAM 

87 * section of peripheral card in //e) 

88 * BNE ERRROUTINE 

89 • ;<>0 then an err occurred 



C712: 
C712: 18 
C713:80 2A 



C73F 



91 »APPLETALK EQU * 



92 
93 



CLC 
BRA 



APPLETALK1 



;FIXED entry point!!!!!!!!!!! 

'.Vector to actual routine 
;Go to AppleTalk entry ptr 



C715 
0715 
C715 
C71S 



95 * REBOOT is accessed by a UMP/JSR to $Cn15. 

96 * This causes boot code to be transferred from the 

97 * AppleTalk//c converter box ROM to the //c RAM and 

98 * causes the execution of that code. 



C715: 
C715:38 
C716:78 
C717:A2 FF 
C719:9A 
C71A:80 26 



C715 100 REBOOTAPTALK EQU • 



C742 



101 
102 
103 
104 
105 



SEC 

SEI 

LDX #$FF 

TXS 

BRA APPLETALK2 



; Jmp here to reboot AppleTalk 
;Set carry means reboot 
;No interrupts during boot 

;Reset stack ptr for boot 



C71C: 
C71C:38 
C71D:A2 03 
C71F:60 



C71C 



107 
108 
109 
110 



PASERR 



EQU » 

SEC 

LDX #$03 

RTS 



jPASCAL error entry point 
;Set carry for error 

;Error code for PASCAL 
;Back to PASCAL 



C720: 
C720: 



0000 
0000 



112 CN20FILL EQU 

113 DS 



$C72B-* 
CN20FILL, 



$00 ;Fill to $Cn20 for BASICENT 



Appendix A: Firmware listing 
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03 APTflLK.C700 



AppleTalk//c C700 Rtns 
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C720: 




C720 


115 


C720:8D 


78 


04 


116 


C723:A9 


C7 




117 


C725:8D 


F8 


07 


118 


C728:08 






119 


C729!C5 


39 




120 


C72B:F0 


E8 


C71B 


121 


C72D!28 






122 


C72E:4D 


7F 


04 


123 


C731:D0 


1A 


C74D 


124 


C733:AD 


FF 


07 


125 


C736:48 






126 


C737:AD 


7F 


07 


127 


C73A:48 






128 


C73B:AD 


78 


04 


129 


C73E:60 






130 



115 BASICENT EQU 



STA 


SCRNTMP0 


LDA 


#$C7 


STA 


MSLOT 


PHP 




CMP 


KSWH 


BEQ 


REBDOTAPTALK 


PLP 




EOR 


SCRNHDLE0 


BNE 


APTALKDFFLN 


LDA 


SCRNH0LE2 


PHA 




LDA 


SCRNHOLEI 


PHA 




LDA 


SCRNTMP0 


RTS 





;MUST start at $Cn20 
;Save user's output byte 
;Say we're In slot 7 
;>>>>> REQUIRED <<<<< 

;Save V/C status 
iIf=KSWH then IN*n was done 
;If so then must reboot 

;Restore V/C status 
;Test for driver Installed 
;<>= to flag then error 
;Hi byte of prntr drv prg 

;To stack for RTS type jump 
;Lo byte-1 of prntr drv prg 

;Restore user's output byte 
;Exit to printer driver 



C73F: C73F 
C73F:8D F8 07 
C742: C742 
C742:20 D3 C7 
C745:70 01 C748 
C747:e0 



132 APPLETALK1 EQU ♦ 



133 STA 

134 APPLETALK2 EQU 

135 JSR 

136 BVS 

137 RTS 



MSLOT 



ALTRDMSW 
FQS 



;Save $Cn in case of interrupt 

;Continue in alt ROM 
;V=1 if from boot code 
;V=0 then return to user 



C748: C748 139 FOS 
C748:B0 03 C74D 140 
C74A:6C CB 00 141 



EQU ♦ 

BCS APTALKDFFLN 

JMP (BOOTIT) 



From Other Side (alt RDM) 
Error so display message 
Start of boot code 



C74D 






C74D 


C74D 


AD 


81 


C0 


C750 


AD 


81 


C0 


C753 


20 


84 


FE 


C7S6 


20 


2F 


FB 


C759 


20 


S8 


FC 


C75C 


20 


93 


FE 


C75F 


20 


89 


FE 


C762 


A0 


10 




C764 






C764 


C764 


B9 


6F 


C7 


C767 


99 


DB 


07 


C76A 


88 






C76B 


10 


F7 


C764 


C76D 






C76D 


C76D 


80 


FE 


C76D 



143 APTALKDFFLN EQU » 

144 LDA $C081 

145 LDA $C081 

146 JSR SETNORM 

147 JSR INIT 

148 JSR HOME 

149 JSR SETVID 

150 JSR SETKBD 



;Switch in LC RDM 

;No inverse stuff 
;Fix up some stuff 
;Clear screen for message 
iScreen is output device 
jKeyboard is input device 



152 LDY 

153 APOFFLDOP EQU 

154 LDA 

155 STA 

156 DEY 

157 BPL 

158 BRAHANGLOOP EQU 

159 BRA 



*APOFFMSGLN- 1 jLength of error message 



C76F: 



161 



MSB 



APOFFMSG.Y 
$7DB,Y 

APOFFLDOP 

BRAHANGLOOP 

ON 



jGet character to show 
iDisplay on screen 

iLoop til done 

;Hang til user presses reset 

;Loop forever 



C76F: C7eF 163 APOFFMSG EQU • 

C76F:C1 F0 F0 EC 164 ASC "AppleTalk 



C780! 



0011 166 APOFFMSGLN EQU *-APOFFMSG 



Offline" 

;Length of error message 



C780: 

C780: 



0000 
0000 



168 C7FILL80 
169 



EQU 
DS 



$C780-» 
C7FILL80,$FF 



;Flll to version number 



riiiwai-e l.,i 



03 APTALK.C700 AppleTal k //c C700 Rtns 22-APR-85 16:01 PAGE 8 

0000: 171 DSECT 

C7FF: C7FF 172 ORG $C7FF ;Vergion # goes at 5C7FF 

C7FF: 174 •RELVERSIDN EQU * iRelease version number 

C7FF:00 17S DFB RELVERNUM ; 

C780: 177 DEND 

NEXT OBJECT FILE NAME IS APTALK . 2CR0ri . 1 

C580: C580 26 ORG $C58B ;$C580-$C77F In aux ROM 

C580: 27 INCLUDE APTALK . ROMSTUFF 



Appendix A: Finnw 



04 APTfiLK.RQMSTUFF AppleTalk//c Alt-ROM 
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CS8 






C580 






Ci380 






CS8 






CS80 






CS8B 






CS80 






CS80 






CS80 






CS80 






C58 






CS80 






CB80 






CS80 






CS80 


90 


59 


C582 






CS82 


fi9 


C7 


CB84 


8S 


88 


GS8S 


85 


C7 


CS88 


20 


0G C6 


CS8B 


B0 


38 


CB8D 


64 


C3 


CS8F 


A9 


C2 


C591 


85 


C2 


CS93 


A9 


09 


C59S 


20 


Gfi C7 


C598 


2 


83 C8 


C59B 


00 




C!59C 


C0 


00 


C59E 


D0 


25 


CSA0 


AS 


C2 


C5fi2 


85 


CB 


CBA4: 


AS 


C3 


CSA6: 


85 


CC 


CSA8: 






C5A8: 


20 


83 C8 


CSAB: 


00 




CBAC: 


C0 


00 


C5AE: 


F0 


25 


C5B0: 


C9 


3F 


CBB2: 


D0 


11 ( 


C5B4: 


18 




C5BS: 






CBB5: 






CSBS: 






CSB5: 


A9 


C0 


CSB7: 


8D 


F9 5 



*ft<J»it^J»ft«««»tt« 



CSDB 



CSCS 



CSA8 



C5CS 



12 
13 
14 
IS 

16 



18 
19 



22 
24 
26 

28 

29 
30 
31 



35 
38 

38 
39 
4 
41 

43 
4 4 
4S 
46 
4 7 
48 
49 
50 



ftpplefalk //c Protocol Converter 

A i t e r 11 (3 t e R M S tuff Routines 

by 
F e !• n B a c h m a ri 

Copyright Apple Computer, Inc. 1985 
All Rights Reserved. 



is«««»it«»» 



»ARAPPIJ£TAIJ< EQU •> ;Alternate RDM entry point 

BCC ARAPPL.ETALK2 ;C..0 then regular ApTalk call 



»DaBOaTCODE EQU 
LDA 
STA 
STA 
JSR 
BCS 

STZ 
LDA 
STA 
LDA 



2P8 

TESTTMP 
ARINITI 
GETC0DE4 

PTRBUFF*1 
*>PTRBUFF 
PTRBUFF 
'?CMDCREBOO 
CALL SETUP 



iAlt ROM ApTalk Reboot entry 
;Put $Cn at $8 for boot program 

;<>0 then indicates from here 
;Verify AppleTalk online 
5 C^ 1 then of f 1 ine 

;Rc2sponse buffer is same 
; Bs send buffer . 



DEB 

DW 

BNE 

LDA 
STA 
LDA 
STA 

OETC0DE2 EQU 
JSR 
DEB 
DW 
BEQ 
CMP 
BNE 
CLC 



; Reboot command 

;Setup some stuff before JSR 
ALTPRCNVENTRY ;Call the prot conv 
PCSTATUSCMD ;Prot Conv status command 
ZP2CUSE ; Parameter buffer 
GETCDDE4 ; <> -= then errors 



; Save start for later 



PTRBUEE 
BOOT IT 
PTRBUEE*- 
BDOTITt 1 



ALTPRCNVENTRY ;Call the prot conv 
PCSTATUSCMD ;Prot Conv status command 
Z!^2CUSE ; Parameter buffer 
GETCGDE5 ;- then no errors 
*LASTPACI<ET--$80 jLast packet read yet? 
GETCUDE4 ;<> last pkt then error 

;C=0 if last pkt received 



52 * ROM tioot progr^im received. Now enable ACIA 

53 « interrupt capability for AppleTalk boot 

54 * proc)ram. 



LDA 
STA 






; Enable firmware to pass int 



Apperifl): 



'irmw^are IJslirirt 



B4 APTALK.ROMSTUFF AppleTal k //c Alt-ROM stuff 



CSBA:A9 BF 
C5BC:0C 9A C0 



C5BF: C5BF 
C5BF:2C 74 C6 
C5C2:4C 84 C7 



C5C5! 
C5CS:38 
C5C6:9C F2 
C5C9!A9 E0 
CSCB:8D F3 
C5CE!49 A5 
C5D0:8D F4 
C5D3:80 EA 



C5D5: 

C5D5:E6 C3 
CBD7:Ee C3 
C5D9:80 CD 



C5C5 



03 



03 



03 



C5BF 



C5D5 



C5A8 



58 




LDA 


#$F 


59 




TSB 


$C09A 


61 


eETCaDE3 


EQU 


* 


82 




BIT 


FF 


63 




JMP 


MAINRDMSW 


65 


GETC0DE4 


EQU 


« 


66 




SEC 




67 




STZ 


SOFTEV 


68 




LDA 


#<$E000 


69 




STA 


SOFTEV+1 


70 




EDR 


'$A5 


71 




STA 


SOFTEV+2 


72 




BRA 


GETC0DE3 


74 


GETC0DE5 


EQU 


« 


75 




INC 


PTRBUFFtI 


76 




INC 


PTRBUFF+1 


77 




BRA 


GETC0DE2 



22-APR-85 16:01 PAGE IE 
;Set up ACIA 



;V=1 to indicate from here 
jReturn to main RDM 



;Error exit for reboot rtne 

;C=1 on error 
;RESET vctrs to basic 
jBASIC coidstart location 



;Power up byte 

;Exit this half of ROM 



I nc for next block 



AppoiulJx A; Firiiiw 



B4 APTALK.ROMSTUFF Alternate RDM entry point 
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CBDB: 




CBDB 


81 


ARAPPLETALK2 EQU • 


C5DB:08 






82 


PHP 




C5DC:D8 






83 


CLD 




C5DD:78 






84 


SEI 




C5DE:8C 


78 


04 


8S 


STY 


SCRNTMP0 


C5E1:A0 


0B 




87 


LDY 


'ZP2CUSELEN 


CBE3: 




C5E3 


88 


ARSTKSVE EQU 


« 


CSE3:B9 


BF 


00 


89 


LDA 


ZP2CUSE-1,Y 


C5E8:48 






90 


PHA 




C5E7:88 






91 


DEY 




CSE8:D0 


F9 


C5E3 


92 


BNE 


ARSTKSVE 


CBEA:86 


C9 




94 


STX 


ADDR0 


C5EC:AE 


78 


04 


9B 


LDX 


SCRNTMP0 


CSEF:86 


CA 




96 


STX 


ADDR1 


C5F1:B1 


C9 




97 


LDA 


CADDR0),Y 


CSF3:F0 


7A 


C66F 


98 


BEQ 


ARAPTALK2 


C5F5:30 


78 


C66F 


99 


BMI 


ARAPTALK2 


CSF7:C9 


06 




100 


CMP 


#6 


C5F9:Ba 


78 


C673 


101 


BCS 


CMDEXITE 


CSFB:aA 






102 


ASL 




C5FC:AA 






103 


TAX 




C5FD:C8 






104 


INY 




CSFE:B1 


C9 




10S 


LDA 


CADDR0),Y 


C600:C8 






106 


INY 




C6fl1:7C 


74 


C7 


107 


JMP 


(APTALKCMDS-2 



iReg AppleTalk call conta here 
;Make sure no ints in here 
;MUST enter with Dec mode clear 
;Force off int ability 

jSave Y temporarily 

i* of bytes to save on stk 

;Get value to save 

; Save i t 

;Test for more 
; <>= go for more 

[User data buffer ptr 

;Recall 'Y' 

;Hi byte of data buff ptr 

;Get command * 

;0 is invalid command 

;- then test for DIAG call 

; else test for valid * 

; > = 6 is i 1 legal 

;Make command * into index 

;Inc to 2nd byte in user buff 
;Pick up the data there 
iinc index for later 
,X) ; Jump to routine 
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AppcaidiX A: l-'ll'iliw; 



04 flPTALK.RDMSTUFF AppleTalk init entry point 

TESTTMP 



C601: 
0604:64 C7 



C604 110 ARINIT 
1 11 



EQU 
STZ 



C606: C606 
C606:9C FE 07 
C609: C609 
C609:EE FE 07 
C60C:A9 0A 
C60E:20 6A C7 
C611 :A9 C7 
C613:85 C3 
C615:64 C2 

C617:20 83 C8 
C61A:00 
C61B:C0 00 
C61D:C9 46 
C61F:D0 0F C630 



C621 


E6 


C4 




C623 


20 


83 


C8 


C626 


00 






C627 


C0 


00 




C629 


C9 


42 




C62B 


D0 


03 


C630 


C62D 


18 






C62E 


80 


04 


C634 


C630 






C630 


C630 


C9 


28 




C632 


D0 


D5 


C609 


C634 






C634 


C634 


A5 


C7 




C636 


F0 


01 


C639 


C638 


60 







C639: C639 

C639:B0 28 C663 

C63B:A0 04 

C63D:80 02 C64 1 



C63F 



C63F 






C63F 


A0 


05 


C641 






C641 


E6 


C9 


C643 


D0 


02 


C64S 


E6 


CA 


C647 






C647 


B2 


C9 


C649 


85 


C5 


C64B 


AS 


C9 


C64D 


85 


C2 


C64F 


AS 


CA 


C6B1 


85 


C3 


C6B3 


98 





C641 



C647 



C647 



ARINIT1 
ARINIT2 



EQU 
STZ 
EQU 
INC 
LDA 
JSR 
LDA 
STA 



APTALKUNIT 

APTALKUNIT 

#CMDCID1 

CALLSETUP 

#$C7 

PTRBUFF+1 



STZ PTRBUFF 

JSR ALTPRCNVENTRY 

DFB PCSTATUSCMD 

DW ZP2CUSE 

CMP #ID1-$80 

BNE NOTHISUNIT 



113 
114 
11S 
116 
117 
118 
119 
120 
121 

123 
124 
125 
126 
127 

129 
130 
131 
132 
133 
134 
135 
136 



138 NDTHISUNIT EQU • 

139 CMP #NODEVCON- 

140 BNE ARINIT2 

141 MAYBCONTINIT EQU • 

142 LDA TESTTMP 

143 BEQ ARINIT4 

144 RTS 



INC 


CODECMDS 


JSR 


ALTPRCNVENTRY 


DFB 


PCSTATUSCMD 


DW 


ZP2CUSE 


CMP 


#ID2-$80 


BNE 


NOTHISUNIT 


CLC 




BRA 


MAYBCONTINIT 



146 


ARINIT4 


EQU 


« 


147 




BCS 


DDEXIT1 


148 




LDY 


#CMDCINIT 


149 




BRA 


ARINIT6 


1S1 


ARSTATUS 


EQU 


« 


152 




LDY 


#CMDCSTAT 


154 


ARINIT6 


EQU 


« 


155 




INC 


ADDR0 


156 




BNE 


STUPPTRS 


157 




INC 


ADDR1 


158 


STUPPTRS 


EQU 


» 


159 




LDA 


(ADDR0) 


160 




STA 


BYTEUSER 


161 




LDA 


ADDR0 


162 




STA 


PTRBUFF 


163 




LDA 


ADDR1 


164 




STA 


PTRBUFF+1 


165 




TYA 





22-APR-8S 16:01 PAGE 12 

;AppleTalk init call entry 
;='0 indicates from here 

;AppleTalk Inlt call entry 



; Save in screen hole 
;Command5 code * 
;Set up some stuff 
iPolnt to ROM in case 
; some device sends us 
iLo byte is zero 

;Call the protocol converter 
;Prot Conv status command 
;Pointer to call buffer 
jApTalk ID status code 1?? 
;Not ID1 then maybe last unit # 

; Commands code now CMDCID2 
;Call the protocol converter 
;Prot Conv status command 
;Pointer to call buffer 
;ApTalk ID status code 2?? 
;Not ID2 then maybe last unit * 

;If here then we've got it 
;See it we should cont INIT call 



Test for dev not connected 
C=1 if bad unit # tried 

= inlt cal 1 — <>0 = reboot call 
=0 then cont init call 
;V=1 return to reboot call 

Continue inlt call here 

C=-1 then AppleTalk unit not avail 

Commands code for init 

Skip ARSTATUS entry point 



;Alt ROM status entry point 
;Command code for status 



Calculate user buffer 

C=0 then leave hi byte alone 

;Get user byte 
;Put in buffer 

;Put in buffer 

! 
;Move commands code to 'A' 



04 APTALK.ROMSTUFF AppleTalk init entry point 



22-APR-85 16:01 PAGE 13 



ce54 








ces4 


167 


CALLBOX 


EQU 


» 


C654 


20 


6A 


C7 




1G8 




JSR 


CALLSETUP 


ce57 


20 


83 


C8 




169 




JSR 


ALTPRCNVENTRY 


C65A 


00 








170 




DFB 


PCSTATUSCMD 


CGBB 


C0 


00 






171 




DW 


ZP2CUSE 



Setup some stuff for JSR 
Go to prot conv 
Prot Conv status command 
Pointer to buffer 
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Append].); 



04 APTALK.RQMSTUFF Exit ApTalk cmd rtne 



22-APR-85 16:01 PAGE 14 



C6BD: 

C6SD:F0 0B 
C65F:C9 30 
C661:B0 02 
CG63: 

C663:A9 04 
C665: 

Ce65:29 0F 
Ce67:AA 
C6G8:D0 0B 
C66A: 

C66A:A2 00 
C66C: 18 
C66D:80 07 

C66F: 

C6eF:C9 81 
C671:F0 17 

C673: 

Ce73: 

C673:A2 FF 

Ce7B: 

C67B:38 

C676: 

Ce76:A0 FS 

C678: 

C678:68 

C679:99 CB FF 

C67C:C8 

C67D:D0 F9 

C67F:B8 
C680:68 
Ce81:29 04 
C683:D0 01 

C685:58 
C686: 
C686:8A 
C687:4C 84 C7 



C6BD 
C6SA 



C6GB 
Ce63 



C66B 



C67S 
CGGA 



CG76 

CG6F 

CG8A 

CG73 
C674 

C67B 

C67G 

CG78 

CG78 

CG8G 
CG8e 



174 DDEXIT EQU 

17B BEQ 

176 CMP 

177 BCS 

178 D0EXIT1 EQU 

179 LDA 

180 D0EXIT2 EQU 

181 AND 

182 TAX 

183 BNE 

184 NECMDEXIT EQU 



18B 
186 
187 



LDX 
CLC 
BRA 



189 ARAPTALK2 EQU 

190 CMP 

191 BEQ 



193 CMDEXITE 

194 FF 
19B 

196 ECMDEXIT 

197 

198 CMDEXIT 

199 

200 ARSTKRST 

201 

202 

203 

204 

206 
207 
208 
209 



EQU 
EQU 
LDX 
EQU 
SEC 
EQU 
LDY 
EQU 
PLA 
STA 
INY 
BNE 

CLV 
PLA 
AND 
BNE 



211 CLI 

212 NOTACTIVE EQU 

213 TXA 

214 JMP 



NECMDEXIT 

*$30 

DaEXIT2 



=0 then no errors to report 
Less than $30 then make err4 



*NOUNIQUEID-$80-$30 ;Make no unique Id error 

* 

*$F 
ECMDEXIT 



;Lo nibble has correct error code 

;Error code must be In X 
;<>= if errors 



*0 
CMDEXIT 



*DIAGCMD 
ARDIAG 



* + 1 
#$FF 



;0= no error 

;C=0 = no error 
; Exi t now 



; Is it a DIAG call? 
; I f so go do it 



; Illegal command error 
;Error command exit 
;Set carry for error 



*$100-ZP2CUSELEN ;# of bytes to restore 

;Recall value from stack 
ZP2CUSE-$100+ZP2CUSELEN,Y ;Store value back in zpage 

;Next 
ARSTKRST ;Loop til done 



#$04 
NOTACTIVE 



MAINROMSW 



;V=0 if from here 

;Modify entry status to reflect 
; correct exit status 
;<>0 =int5 were off at entry 

ilf here, ints were on at entry 

;Put error command in A 
iExit back to main ROM 



Appendix A: Fiimware LislJng 
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C68A: 




C68A 


216 


ARDIAG 


EQU 


« 


Ce8A:C8 






217 




INY 




C68B:B1 


C9 




218 




LDA 


CADDR0),Y 


C68D:8S 


C2 




219 




STA 


PTRBUFF 


C68F:C8 






220 




INY 




C690:B1 


C9 




221 




LDA 


CADDR0),Y 


C692:8S 


C3 




222 




STA 


PTRBUFF+1 


Ce94! 




C694 


223 


ARDIAG1 


EQU 


# 


C694:C8 






224 




INY 




C695:B1 


C9 




225 




LDA 


CADDR0),Y 


C697:99 


C2 


00 


226 




STA 


BYTELDNUM-3,Y 


Ce9A:C0 


06 




227 




CPY 


*6 


C69C:D0 


F6 


C694 


228 




BNE 


ARDIAG1 


C69E:A9 


08 




230 




LDA 


*CMDCDIAG 


CeA0:20 


6A 


C7 


231 




JSR 


CALLSETUP 


C6A3: 




C6A3 


233 


ARDIAG2 


EQU 


« 


C6A3:20 


83 


C8 


234 




JSR 


ALTPRCNVENTRY 


C6A6:00 






235 




DFB 


PCSTATUSCMD 


C6A7:C0 


00 




236 




DW 


ZP2CUSE 


CeA9:F0 


06 


CGBI 


237 




BEQ 


ARDIAG4 


C6AB:C9 


3F 




238 




CMP 


#LASTPACKET-$ 


CeAD:F0 


BB 


ce6A 


239 




BEQ 


NECMDEXIT 


C6AF:80 


B2 


C663 


240 




BRA 


DQEXIT1 


C6B1 : 




C6B1 


242 


ARDIAG4 


EQU 


# 


C6B1 : 18 






243 




CLC 




C6B2:8A 






244 




TXA 




C6B3:65 


C2 




245 




ADC 


PTRBUFF 


C6BS:8S 


C2 




246 




STA 


PTRBUFF 


C6B7:98 






247 




TYA 




C6B8:65 


C3 




248 




ADC 


PTRBUFFtI 


CeBA:85 


C3 




249 




STA 


PTRBUFF+1 


C6BC:80 


E5 


C6A3 


250 




BRA 


ARDIAG2 



;Move data to param buffer 
jUser buffer ptr lo byte 



;User buffer ptr hi byte 



jUser data 

;Put in param buffer 

;Y=6 then done 

; Loop til 4 moved 

jDiag command code 

; Set some stuff for JSR 



^Alt ROM prot conv entry point 
;Prot Conv status command 
;Ptr to commands buffer 
^=0 then not last packet sent 
10 ;Hi bit not fed to us 
;=0 then last packet received 
jError command exit 



;If here then more to come 
;Add * bytes read to buff ptr 
;Lo byte to 'A' 

; Save for next call 
; Hi byte to add 

5 Save for next call 
^Back for more 



r'lrruware Lisun; 



04 APTflLK.ROMSTUFF AppleTalk Rdpro t /Rdres t entry 



C6BE; 




C6BE:B8 




C6BF:80 


07 


C6C1: 




C6C1 :fl9 


07 


C6C3:80 


8F 


C6CS: 




C6C5:2C 


74 CG 


C6C8: 




C6C8:85 


C2 


C6CA:B1 


C9 


C6CC:85 


C3 


C6CE:C8 




C6CF:B1 


C9 


C6D1:85 


C5 


C6D3:C8 




CSD4:B1 


C9 


C6D6:85 


C6 


C6D8.-SB 


E7 C 


C6DA:A9 


06 


C6DC:20 


6A C7 


C6DF:20 


83 C8 


CeE2:00 




CSE3:C0 


00 


C6E5:48 




C6E6:SA 




C6E7:A0 


04 


CeE9!8A 




C6EA:91 


C9 


C6EC:68 




C6ED:C8 




C6EE:91 


C9 


C6F0:68 





C6BE 253 ARREADPROT EQU * 

254 CLV 

C6C8 255 BRA ARREADREST2 



C6C5 



C6C8 



C6C1 
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;Read protocol entry point 

;Clear V If from here 
iStart Into readrest routine 



C6C1 257 ARREADPRaT2 EQU • ; 

258 LDA ^CMDCREADPROT ;Readprot command code 

C654 259 BRA CALLBDX ;Call box for execution 



261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 



ARREADREST EQU 
BIT 

ARREADREST2 EQU 
STA 
LDA 
STA 
INY 
LDA 
STA 
INY 
LDA 
STA 
BVC 
LDA 
JSR 
JSR 
DFB 
DW 
PHA 
PHY 
LDY 
TXA 
STA 
PLA 
INY 
STA 
PLA 



FF 

* 

PTRBUFF 

CADDR0),Y 

PTRBUFF+1 

(ADDR0),Y 
BYTEUSER 

(ADDR0),Y 

BYTEHINUM 

ARREADPR0T2 

'CMDCREADREST 

CALLSETUP 

ALTPRCNVENTRY 

PCSTATUSCMD 

ZP2CUSE 



C6F1: C6F1 
CeFI :4C SD C6 



289 ARREXIT 
290 



EQU 
JMP 



*4 
(ADDR0>,Y 

(ADDR0),Y 

* 
DOEXIT 



AppleTalk readrest call entry 
;Sets V flag 

AppleTalk readrest call entry 

'A' has lo byte of RAM ptr 

'A' has hi byte of RAM ptr 

!Get/move 2 more bytes 



V=0 then exit here 
Readrest command code 
Set up some stuff for JSR 
Call the prot oonv 
Prot Conv status command 
Buffer pointer 
;Save for awhile 
;Save for awhile 
iPut * of bytes read in user buff 
;Move to A to save 

;Move hi byte too 
;Next loc in user buff 



;Re5tore error byte 



A: Fin 



34 APTALK.RQMSTUFF AppleTalk write entry point 
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C6F4 
C6F4 
C6F4 
C6F4 
CGF4 



293 * Now move data to write into card. The 

294 * data is obtained from the table pointed 

295 * to in the WRITE parameter list. 

296 * The WRITE parameter Hat is set up as 

297 * follows: 



C6F4 
C6F4 
C6F4 
C6F4 
C6F4 
C6F4 
C6F4 
C6F4 
C6F4 
C6F4 
C6F4 
CeF4 
C6F4 
C6F4 



299 * WRITETBL EQU • 

300 * DW 1 

301 * DW addr of dest addr 

302 * DW 1 

303 • DW addr of src addr 

304 * DW 1 

305 • DW addr of LAP type 

306 * DW $bbbb 

307 * DW addr of DDP data 

308 * DW $bbbb 

309 » DW addr of ATP data 

310 • DW $bbbb 

311 * DW addr of misc data 
312 



DW $FFxx 



Length in bytes 

Ptr to dest address 

Length in bytes 

Ptr to Src address 

Length in bytes 

Ptr to LAP type 

Length in bytes 

Ptr to DDP data 

Length in bytes 

Ptr to ATP data 

Length in bytes 

Ptr to misc data 
Terminator <- REQUIRED 



C6F4 
C6F4 
C6F5 
C6F7 
C6F9 
C6FB 
C6FC 
C6FE 
C700 
C702 
C702 
C704 
C706 
C708 
C709 
C70B 
C70C 
C70E 
C70F 
C711 
C713 
C714 
C715 
C716 
C718 
C71A 



C6F4 



:AA 

:B1 C9 

:8S CA 

:86 C9 
:AA 

:64 C7 

:64 C8 

:A0 00 

:B1 C9 

:65 C7 

:85 C7 
:C8 

:B1 C9 
: 1A 

:F0 0E 
:3A 

;65 C8 

:8S C8 
:C8 
:C8 
:C8 

:D0 EA 

:E6 CA 

:80 E6 



C702 



C71C 



C702 



C702 



314 ARWRITE 

315 

316 

317 

318 

319 

320 

321 

322 

323 SEND2MA 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 



EQU 
TAX 
LDA 
STA 
STX 
TAX 
STZ 
STZ 
LDY 
NYLP EQU 
LDA 
ADC 
STA 
INY 
LDA 
INC 
BEQ 
DEC 
ADC 
STA 
INY 
INY 
INY 
BNE 
INC 
BRA 



<ADDR0),Y 

ADDR1 

ADDR0 

TESTTMP 

TESTTMP+1 

#0 

(ADDR0),Y 

TESTTMP 

TESTTMP 

(ADDR0),Y 

FOUNDEND 

TESTTMP+1 
TESTTMP+1 



SEND2MANYLP 

ADDR1 

SEND2MANYLP 



iAppleTalk write call entry 

; Save in X 
iHi byte of user WRITETBL 



;Must save for later 
;Sum of * bytes to send 
;H1 byte of above 
;Add together * bytes to 
; send to see if too many 
;Lo byte of ' of bytes in buff 
;Add to total 
; Update total 

;Hi byte of * of bytes In buff 
iSets Z If A was IFF <end) 
;Off to brighter things 
jRestore original number 
•,Add to total 
; Update total 

Inc past buffer pointers 



Inc to lo byte of * bytes in buff 
Loop If here 
> then 255 buffers if here 



C71C: 

C71C:86 CA 

C71E:A5 C8 

C720:C9 03 



C71C 



C722:90 
C724:A2 



05 
05 



C729 



C72G:4C 75 C6 



341 FOUNDEND 

342 

343 

344 

345 

346 

347 



EQU 
STX 
LDA 
CMP 
BCC 
LDX 
JMP 



ADDR1 jRestore to it's orlg value 

TESTTMP+1 i Do a quick chk for too many 
#3 ;If hi byte is >=3 then too many 

ITSHQRTENUF ; <3 then it's short enough 
#BYTEGTR603-$80-$30 ;Error code 
ECMDEXIT ;Error command exit 



C729: 
C729:A£ 



C729 



349 ITSHDRTENUF EQU • 

350 LDY #0 



;If pkt len is OK come here 
iStart back at 1st buffer 



Appendix A: 
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C72B;A9 


04 




3B1 


LDA 


#PCDUNTW 


C72D:20 


6E 


C7 


352 


JSR 


CALLSETUP2 


0730:64 


C6 




3B3 


STZ 


TYPEWRITE 


C732: 




C732 


355 ARWRITE2 


EQU 


# 


C732:B1 


C9 




3B6 


LDA 


£ADDR0),Y 


C734:85 


C4 




357 


STA 


NUMLDWRITE 


C736:C8 






358 


INY 




C737:B1 


C9 




359 


LDA 


(ADDR0),Y 


C739:C9 


FF 




360 


CMP 


*$FF 


C73B:F0 


IF 


C75C 


361 


BEQ 


SAYSENDIT 


C73D:85 


C5 




362 


STA 


NUMHIWRITE 


C73F:C8 






363 


INY 




C740:B1 


C9 




364 


LDA 


CADDR0),Y 


C742:8S 


C2 




365 


STA 


PTRBUFF 


C744:C8 






366 


INY 




C745:B1 


C9 




367 


LDA 


(ADDR0),Y 


C747:85 


C3 




368 


STA 


PTRBUFF+1 


C749:C8 






369 


INY 




C74A:D0 


02 


C74E 


370 


BNE 


ARWRITE4 


C74C:E6 


CA 




371 


INC 


ADDR1 


C74E: 




C74E 


372 ARWRITE4 


EQU 


* 


C74E:84 


C7 




373 


STY 


TESTTMP 


C7B0:20 


83 


C8 


374 


JSR 


ALTPRCNVENTRY 


C753:09 






375 


DFB 


PCWRITECMD 


C7S4:C0 


00 




376 


DW 


ZP2CUSE 


C756:D0 


99 


C6F1 


377 


BNE 


ARREXIT 


C758:A4 


C7 




378 


LDY 


TESTTMP 


C75A:80 


D6 


C732 


379 


BRA 


ARWRITE2 


C75C: 




C7BC 


381 SAYSENDIT 


EQU 


» 


C7SC:64 


C4 




382 


STZ 


NUMLDWRITE 


C75E:64 


CB 




383 


STZ 


NUMHIWRITE 


J760:85 


C6 




384 


STA 


TYPEWRITE 


C762:20 


83 


C8 


385 


JSR 


ALTPRCNVENTRY 


C765:09 






386 


DFB 


PCWRITECMD 


C766:C0 


00 




387 


DW 


ZP2CUSE 


C768:80 


87 


C6F1 


388 


BRA 


ARREXIT 



;* of parameters for write call 
;Set up some stuff for JSR 
;Data packet type is 



Get lo byte of * bytes to send 
Put in buffer 



Terminator reached yet? 
Yes then send 'send it' req 

;Put buffer ptrs In buff now 



;Ready for next loop 

Skip inc 

For page cross 

MUST preserve 'Y' 

Call prot conv 

Prot Conv write command 

Buffer 

Error then exit 

Restore Y 

Loop til done 

If here last packet was sent 
out * of bytes this packet 

<>0 means send Aptalk pkt 

Ca 1 1 prot conv 

Prot Conv write command 

Buffer 

Return to user 



AppeiKii) 
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C76A: 

C76A:8B C4 
C7GC:A9 06 

C76E: 

C76E:85 C0 
C770:AD FE 
C773:85 
C775:60 



CI 



C76A 



C76E 



392 CALLSETUP EQU 

393 STA 

394 LDA 



CODECMDS 
#PC0UNTS4.B 



396 CALLSETUP2 EQU • 

397 STA PARAMNUM 

398 LDA APTALKUNIT 

399 STA NUMUNIT 

400 RTS 



Setup some stuff for Prot Conv 
Save cmd code for Prot Conv 
# of parameters for call 

Alternate entry point 

Move unit number to buff 
Put in buffer 
;Back to caller 



C776: C776 402 APTALKCMDS EQU 

C776:04 06 403 

C778;C5 06 404 

C77A:F4 06 405 

C77C:3F 06 406 

C77E:BE 06 407 



DW 


ARINIT 


DW 


ARREADREST 


DW 


ARWRITE 


DW 


ARSTATUS 


DW 


ARREADPROT 



;AppleTalk inlt call 

■.AppleTalk readrest call 

;AppleTalk write call 

;AppleTalk status call 

;AppleTalk readprot call 



0780: 
0780: 



0000 
0000 



409 RQMSTUFFFILL EQU $0780-* 

410 DS RQMSTUFFFILL, $FF 



i Fi 1 1 charac ter 



0780: 



28 



LST ASYM.VSYM 



;List by symbol and address 



04 SYMBOL TABLE 



SORTED BY SYMBOL 
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C9 
C764 
C742 
C5DB 
C6A3 
C604 
CGC1 
C63F 
C74E 
C76D 

C5 
C76A 

07 
C67S 

81 
C675 
C5A8 
FC58 
C729 
CG34 
CGBG 

C4 

0G 

C2 
C75C 
0478 
FE93 
C703 

08 



ADDR0 

APOFFLOOP 

APPLETALK2 

ARAPPLETALK2 

ARDIAG2 

ARINIT 

ARREADPR0T2 

ARSTATUS 

ARWRITE4 

BRAHANGLOOP 

BYTEUSER 

CALLSETUP 

CMDCREADPROT 

CMDEXIT 

DIAGCMD 

ECMDEXIT 

GETC0DE2 

HOME 

ITSHORTENUF 

MAYBCONTINIT 

NOTACTIVE 

NUMLOWRITE 

PC0UNTS4.B 

PTRBUFF 

SAYSENDIT 

SCRNTMP0 

SETVID 

TOSETV 

ZP8 



CA 

C76F 

C77G 

CGGF 

C6B1 

CG08 

C6C8 

CG78 

C6F4 

B5 

00 

08 

0G 

CG73 

C65D 

CG74 

C5BF 

CG 

39 

B7F8 

CG30 

CI 

04 

C715 

047F 

C702 

03F2 

CG 



ADDR1 

APOFFMSG 

APTALKCMDS 

ARAPTALK2 

ARDIAG4 

ARINIT1 

ARREADREST2 

ARSTKRST 

ARWRITE 

BYTEGTRGBS 

C7FILL80 

CMDCDIAG 

CMDCREADREST 

CMDEXITE 

DOEXIT 

FF 
GETC0DE3 

ID1 

KSWH 

MSLOT 

NOTHISUNIT 

NUMUNIT 

PCOUNTW 

REBOOTAPTALK 

SCRNHOLE0 

SEND2MANYLP 

SOFTEV 

TYPEWRITE 



C883 

0011 

C74D 

CG8A 

C609 

CG41 

CGCB 

C5E3 

C72B 

CG 

CG54 

0A 

09 

00 

C6G3 

C748 

C5C5 

C2 

BF 

CGGA 

B4 

C0 

00 

00 

077F 

FE89 

C647 

0B 



ALTPRCNVENTRY 

APOFFMSGLN 

APTALKOFFLN 

ARDIAG 

ARINIT2 

ARINITG 

ARREADREST 

ARSTKSVE 

BASICENT 

BYTEHINUM 

CALLBQX 

CMDCID1 

CMDCREBOOT 

CN20FILL 

D0EXIT1 

FOS 

GETC0DE4 

ID2 

LASTPACKET 

NECMDEXIT 

NOUNIQUEID 

PARAMNUM 

PCSTATUSCMD 

RELVERNUM 

SCRNH0LE1 

SETKBD 

STUPPTRS 

ZP2CUSELEN 



C7D3 

C73F 

07FE 

C694 

CG39 

C6BE 

CGF1 

0732 

CB 

CS 

C76E 

04 

0E 

C4 

CG65 

C71C 

CBD5 

FB2F 

C784 

A8 

CB 

C71C 

09 

00 

07FF 

FE84 

C7 

C0 



ALTRQMSW 

APPLETALK1 

APTALKUNIT 

ARDIAG1 

ARINIT4 

ARREADPROT 

ARREXIT 

ARWRITE2 

BOOTIT 

BYTELQNUM 

CALLSETUP2 

CMDCINIT 

CMDCSTATUS 

CODECMDS 

D0EXIT2 

FOUNDEND 

GETCODEB 

INIT 

MAINROMSW 

NODEVCON 

NUMHIWRITE 

PASERR 

PCWRITECMD 

ROMSTUFFFILL 

SCRNH0LE2 

SETNORM 

TESTTMP 

2P2CUSE 



\ppen(lix 



04 SYMBOL TABLE 



SORTED BY ADDRESS 
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ee ROMSTUFFFILL 00 

00 C7FILL80 04 

06 CMDCREADREST 06 

08 CMDCDIAG 09 

0B ZP2CUSELEN 0011 

A8 NODEVCON B4 

C0 PARAMNUM C0 

C2 ID2 C4 

C5 BYTELONUM C5 

Ce BYTEHINUM C7 

CB BODTIT 03F2 

077F SCRNHDLE1 07F8 

C5A8 GETC0DE2 C5BF 

C5DB ARAPPLETALK2 CSE3 

C603 ARINIT2 C630 

C63F ARSTATUS C641 

C65D DOEXIT C663 

C66F ARAPTALK2 C673 

C676 CMDEXIT C678 

C694 ARDIAG1 C6A3 

C6C1 ARREADPR0T2 C6CS 

C6F4 ARWRITE C702 

C71C FOUNDEND C71C 

C732 ARWRITE2 C73F 

C74D APTALKOFFLN C74E 

C76A CALLSETUP C76D 

C776 APTALKCMDS C784 

FB2F INIT FC58 

FE93 SETVID 

»• SUCCESSFUL ASSEMBLY := 

»♦ ASSEMBLER CREATED ON 1 

•• TOTAL LINES ASSEMBLED 

** FREE SPACE PAGE COUNT 



RELVERNUM 

PCOUNTW 

PC0UNTS4.B 

PCWRITECMD 

APDFFMSGLN 

NOUNIQUEID 

ZP2CUSE 

CODECMDS 

NUMHIWRITE 

TESTTMP 

SOFTEV 

MSLOT 

GETCDDE3 

ARSTKSVE 

NDTHISUNIT 

ARINIT6 

D0EXIT1 

CMDEXITE 

ARSTKRST 

ARDIAG2 

ARREADREST 

SEND2MANYLP 

PASERR 

APPLETALK1 

ARWRITE4 

BRAHANGLOOP 

MAINROMSW 

HOME 

NO ERRORS 
5-JAN-84 21:28 
738 
79 



04 

07 

09 

39 

B5 

CI 

C4 

C6 

C9 

0478 

07FE 

C5C5 

C604 

C634 

C647 

C665 

C674 

C686 

C6B1 

C6C8 

C703 

C720 

C742 

C75C 

C76E 

C7D3 

FE84 



CN20FILL 

CMDCINIT 

CMDCREADPROT 

CMDCREBDOT 

KSWH 

BYTEGTR603 

NUMUNIT 

NUMLOWRITE 

TYPEWRITE 

ADDR0 

SCRNTMP0 

APTALKUNIT 

GETC0DE4 

ARINIT 

MAYBCONTINIT 

STUPPTRS 

D0EXIT2 

FF 

NOTACTIVE 

ARDIAG4 

ARREADREST2 

TOSETV 

BASICENT 

APPLETALK2 

SAYSENDIT 

CALLSETUP2 

ALTROMSW 

SETNORM 



05 

08 

0A 

81 

BF 

C2 

C5 

C6 

CA 

047F 

07FF 

C5D5 

C606 

C639 

C654 

C66A 

C675 

C68A 

C6BE 

C6F1 

C715 

C729 

C748 

C764 

C76F 

C883 

FE89 



PCSTATUSCMD 

CMDCSTATUS 

ZP8 

CMDCID1 

DIAGCMD 

LASTPACKET 

PTRBUFF 

BYTEUSER 

ID1 

ADDR1 

SCRNHOLE0 

SCRNH0LE2 

GETCQDES 

ARINIT1 

ARINIT4 

CALLBOX 

NECMDEXIT 

ECMDEXIT 

ARDIAG 

ARREADPROT 

ARREXIT 

REBOOTAPTALK 

ITSHORTENUF 

FOS 

APOFFLOQP 

APOFFMSG 

ALTPRCNVENTRY 

SETKBD 



A: FirinwaR- Lislii 



Index 



Cast of Characters 

- (caret) 12 

$ (dollar sign) 12 

d] (Open-Apple key) 15 

65C02 21 

[T] (Solid-Apple key) 15 

32K ROM 2 

3.5 ROM V 



A register 21,51 

absolute addressing mode 14 

accumulator 

See A register 
iccumulator addressing mode 15 
ACIA 27, 37 
addressing modes 14-15 
absolute 14 
accumulator 15 
implied 15 
relative 15 
zero page 14 
alternate bank 

See ROM 
Apple n identification 3 
Apple He 46 
ASCII input mode 17 
assembly-language program(s) 10 
debugging 15 
example of 13 
Asynchronous Communications 
Interface Adapter 
See ACIA 



B 

banks, ROM 2 
booting 4 

external disk drive 3, 4 

UniDisk 3.5 4 



C 

C flag 

See Pi-ocessoi' Status i 
" (caret) 12 
carriage rciturri 5 
cassette out))ut signal 3 
GBiis 

5ee Protocol Con verte 
CLOSE 41 
column overflow 5 
Goniman.d Name 24 
Command Number 24 
commands, serial port 4- 
communications error 5 
CONTROL 35-38 



egisier 



:• Bus 



I) 

device 
control block 27, 37 
information block 27 
sei'vice interrupt 37 
status 26 

disk, eject 37 

disk controller unit (IWIvl) 

Disk II drive, external 3 

Disk lie 7 

$ (do)lai' sign) 12 

DOS 4 



eyectdisk 37 

entry point, Protocol Converter 20 
error codes, summary of 51-52 
external disk drive, booting 3 



find keyboard 5 
FORMAT 34 

G, H, I 

identification bytes 2-3 
iiiii.ilied addressing mode 15 
INIT 39 

initialization 39 
installing ROM 2 
interi'upt handler 3-4 

switcliing ROM banks with 3 
interrupts 27, 37 

mouse movejiient 4 

vertical blanking 4 
I/0(!iTor 51 
IWM 

See disk controller unit 



keyboard, disabling 5 



leaving the Mini-Assembler 12 
linefeed 5 



Index 



machine language programs 10-11 
Macintosh with UniDisk 42, 43, 44, 45 
main banl*. 

See ROM 
mask line feeds 5 
microprocessor 21 

See also 65C02 registers 
Mini-Assembler 6, 10-15 

address formats 14 

leaving 12 

starting 10 

using 11 
modes, addressing 

absolute 14 

accumulator 15 

implied 15 

relative 15 

zero page 14 
Monitor 3, 6, 10 
mouse-interrupt handler, creating 4 

N 

newline status 27, 37 



OPEN 40 

p 

Parameter List 24 

Pascal 4 

Processor Status register 21, 51 

ProDOS 4, 20 

program counter 11 

Protocol Converter 6, 20-52 

entry point 20 

example of a call to 46-49 

issuing calls to 20-22 

locating 20 
Protocol Converter Bus 7 
Protocol Converter call(s) 

CLOSE 41 

CONTROL 35-38 

FORMAT 34 

INIT 39 



OPEN 40 
READ 42-43 
READ BLOCK 30-31 
STATUS 25-29 
summary of 23-24, 50 
WRITE 44-45 
WRITE BLOCK 32-33 

Q,R 

READ 42-43 
READ BLOCK 30-31 
register(s) 

A 21,51 

Processor Status 21,51 

65C02 21,25,28,51 

X 25 

Y 25 
relative addressing mode 15 
resets 36, 39 
restarting 

See booting 
ROM 

alternate bank 2, 3 

identification 3 

installing 2 

main bank 2 

switching banks 2, 3 

32K 2 

3.5 V 



serial port commands 4-5 

column overflow 5 

find keyboard 5 

linefeed 5 

mask line feeds 5 

XON/XOFF protocol 5 
65002 registers 21, 25, 28, 51 
S] 15 

stack space 22 
starting 

See booting 
starting the Mini-Assembler 10 
STATUS 25-29 
STEP command 15-17 



summary 

error codes 51-52 

Protocol Converter call(s) 23-24, 50 
switching ROM banks 2, 3 

T 

32K ROM 

See ROM 
3.5 ROM 

See ROM 
TRACE command 17 

U 

UniDisk 3.5 

booting 4 

device control block with 27, 37 

ejecting disk with 37 

Macintosh with 42, 43, 44, 45 

status 28 

using CLOSE with 41 

using OPEN with 40 

using READ with 42,43 

using WRITE with 44,45 
using the Mini- Assembler 11 

V 

vertical-blanking interrupts 4 

W 

WRITE 44-45 
WRITE BLOCK 32-33 

X 

X register 25 
XON/XOFF protocol 5 

Y 

Y register 25 



zero page 
addressing 14 
locations 22 



